view release on metacpan or  search on metacpan

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

    ...
    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);
    };