view release on metacpan or  search on metacpan

inc/MyContainer.pm  view on Meta::CPAN

package MyContainer;

use Modern::Perl;

use Carp qw(confess);

sub new {
    my $class = ref $_[0] || $_[0]; shift;
    my $self = bless {}, $class;
    $self;
}

sub import {

script/schema_loader.pl  view on Meta::CPAN

#!/usr/bin/env perl

use rlib;
use Modern::Perl;

use Class::Load qw(try_load_class);
use DBIx::Class::Schema::Loader qw(make_schema_at);

my $default_resultset_class = do {
    my $candidate = "Catalyst::Authentication::RedmineCookie::Base::Schema::ResultSet";
    my $ret = try_load_class $candidate;
    $ret ? "+$candidate" : "+DBIx::Class::ResultSet::HashRef";
};
my $result_base_class       = do {