Select Code to Download

#This is file: Users.pm
...
Users->columns(All => qw/id username password created/);

1;

#This is file: my_prog.pl

...
);

say $user1->username;  #Joe

my $id = 1; 
my $user = Users->retrieve($id);
say $user->username;    #Joe

my $user2 = Users->insert(
    {
...
    }
);

my @users = Users->retrieve_all;

...
Jim
456
2013-02-02 00:12:00

for my $user (@users) {
    printf "%s %s %s \n",
...
--output:--
Joe 123 2013-02-02 00:12:00
Jim 456 2013-02-02 00:12:00

$user2->username("Kathy");
$user2->update;

$user1->delete;

#This is file: MyDBIDatabase.pm

...
#Format is: (dbi:<database_type>:<db_name>, <username>, <password>)

1;   #Don't forget this!

#This is file: Users.pm

...
Users->columns(All => qw/id username password created/);

1;

#This is file: MyApp/MyDBIDatabase.pm

...
#Format is: (dbi:<database_type>:<db_name>, <username>, <password>)

1;   #Don't forget this!

#This is file: MyApp/Users.pm

...
MyApp::Users->columns(All => qw/id username password created/);

1;

#This is file: my_prog.pl

...
#Same as my_prog.pl above with 'Users' replaced by 'MyApp::Users'
#everywhere in the code.
#