package local::user; require Exporter; use strict; use local::db; use base "Exporter"; sub new { my $invocant = shift; my $class = ref($invocant) || $invocant; # my $self = $class->SUPER::new(@_); my $self=bless {}, $class; ($self->{name})=@_; my @user = local::db::owner->search(name => $self->{name}); if (not @user) { push @user,local::db::owner->insert({name => $self->{name}}); } $self->{id}=$user[0]->owner_id(); die 'Could not find you user' if not $self->{id}; return $self; } sub obj { my $self = shift; return local::db::owner->retrieve($self->{id}); } sub get_name { my $self = shift; return $self->{name}; } sub get_id { my $self = shift; return $self->{id}; }