Catalyst-Authentication-RedmineCookie

 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 {

junk/show_user.pl  view on Meta::CPAN

#!/usr/bin/env perl

use rlib qw(../inc ../lib);
use Modern::Perl;
use base qw(App::Cmd::Simple);

use Catalyst::Authentication::RedmineCookie::Schema;
use JSON::MaybeXS;
use MyContainer;

sub opt_spec {
    (
        [ "login=s", "SELECT * FROM users WHERE login = <specify>", { required => 1 } ],
    );

script/schema_loader.pl  view on Meta::CPAN

#!/usr/bin/env perl

use rlib qw(../inc ../lib);
use Modern::Perl;

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

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";
};

 view all matches for this distribution
 view release on metacpan -  search on metacpan