Dual-license your content for inclusion in The Perl 5 Wiki using this HOWTO, or join us for a chat on irc.freenode.net#PerlNet.

Melbourne Perl Mongers/8th March 2006/Model AddressBook.pm

From PerlNet

Jump to: navigation, search

Save this as lib/InfoAssistant/Model/AddressBook.pm

But it would be better to use the create script and then make changes by hand...

package InfoAssistant::Model::AddressBook;
use strict;
use warnings;
use base 'Catalyst::Model';
use AddressBook;

__PACKAGE__->mk_accessors('ab');

sub new {
        my ($self, $c) = @_;
        $self = $self->NEXT::new($c);
        $self->ab(
                AddressBook->new()
        );
        return $self;
}

1;

Retrieved from "http://perl.net.au/wiki/Melbourne_Perl_Mongers/8th_March_2006/Model_AddressBook.pm"