1 files changed, 34 insertions, 0 deletions
diff --git a/local/user.pm b/local/user.pm
new file mode 100644
index 0000000..8e134a8
--- /dev/null
+++ b/local/user.pm
@@ -0,0 +1,34 @@
+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 get_name
+{
+  my $self = shift;
+  return $self->{name};
+}
+
+sub get_id
+{
+  my $self = shift;
+  return $self->{id};
+}