view release on metacpan or  search on metacpan

lib/Handel/Manual/Intro.pod  view on Meta::CPAN

74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
    ...
    1;
 
The first time the database needs to be accessed, storage will create a new schema instance, and return the
appropriate schema result. This is roughly:
 
    package Handel::Cart;
    ...
    sub create {
        my $class = shift;
        return bless{ result => $class-storage->create(shift) }, $class;
    };
     
    package Handel::Storage;
    ...
    sub create {
        my $self = shift;
        my $dbresult = $self->schema_instance->resultset($self->schema_source)->create(shift);
     
        return $self->result_class->create_instance($dbresult);
    };