Select Code to Download

Select or download this

my $user = MyUserClass->new(
  {u_name=>"mrwong",u_password=>"jshdghjashjd"});
$user->save;

Select or download this

#!/usr/bin/perl -w

...
      print "Key $key: $otherUser->{$key}\n";
    }
}

Select or download this

package MyUserClass;

use strict;
...
    bless $self, $class;
    return $self;
}

Select or download this
```
package Datasource;

...
}

1;
```

Select or download this

SPOPS::ruleset_process_action (323) >> Trying to process pre_fetch_act
+ion for a MyUserClass type of object
SPOPS::clear_all_loaded (399) >> Clearing all fields to unloaded for o
+bject class MyUserClass
Can't use an undefined value as a HASH reference at /usr/lib/perl5/sit
+e_perl/5.8.0/SPOPS.pm line 400.
Use of uninitialized value in concatenation (.) or string at /usr/lib/
+perl5/site_perl/5.8.0/SPOPS.pm line 173.