File Coverage

blib/lib/WebPresence/Profile.pm

Criterion	Covered	Total	%
statement	6	35	17.1
branch	0	10	0.0
condition	0	5	0.0
subroutine	2	7	28.5
pod	2	4	50.0
total	10	61	16.3

package WebPresence::Profile;

use strict;
use Carp;

our $VERSION = '1.0';

our $AUTOLOAD;

sub new {
    my $pkg = shift or return undef;
    my $obj = {};
    while (@_) {
        my $k = shift;
	if (@_) {
	    my $v = shift;
	    $obj->{$k} = $v;
	}
	else {
	    $obj->{$k} = undef;
	}
    }
    bless $obj, ref $pkg || $pkg;
    $obj->SetInfo($obj->{user}) if $obj->{'user'};
    return $obj;
}

sub SetInfo {
    my $obj = shift;
    my $user = shift;
    $obj->{profile}->{user} = $user;
}

sub Get {
    my $obj = shift;
    my $prop = shift;
    return $obj->{profile}->{$prop};
}

sub Set {
    my $obj = shift;
    my $prop = shift;
    my $val = shift;
    my $oldval = $obj->{profile}->{$prop};
    $obj->{profile}->{$prop} = $val;
    return $oldval || '0E0';
}

sub AUTOLOAD {
    my $obj = shift;
    my $type = ref $obj or croak "$obj is not an object.";
    my $prop = $AUTOLOAD;
    if (@_) {
        return $obj->Set($prop, shift);
    }
    else {
        return $obj->Get($prop);
    }
}

1;

__END__