view release on metacpan or  search on metacpan

inc/Spiffy.pm  view on Meta::CPAN

my $stack_frame = 0; 
my $dump = 'yaml';
my $bases_map = {};

sub WWW; sub XXX; sub YYY; sub ZZZ;

# This line is here to convince "autouse" into believing we are autousable.
sub can {
    ($_[1] eq 'import' and caller()->isa('autouse'))
        ? \&Exporter::import        # pacify autouse's equality test
        : $_[0]->SUPER::can($_[1])  # normal case
}

# TODO
#
# Exported functions like field and super should be hidden so as not to
# be confused with methods that can be inherited.
#

sub new {
    my $class = shift;

lib/AnyEvent/DBI/Abstract/Limit.pm  view on Meta::CPAN

use strict;
use warnings;
our $VERSION = '0.02';

use parent 'AnyEvent::DBI::Abstract';
use SQL::Abstract::Limit;
use DBI;

sub new {
    my ($class, $dsn, $user, $pass, %arg) = @_;
    my $self =  $class->SUPER::new($dsn, $user, $pass, %arg);
    $self->{_DBI_abstract} = SQL::Abstract::Limit->new;
    $self->abstract->{limit_dialect} = [ DBI->parse_dsn($dsn) ]->[1];
    return $self;
}

1;
__END__

=head1 NAME