view release on metacpan or  search on metacpan

inc/DBI.pm  view on Meta::CPAN

	    unless UNIVERSAL::isa("${class}_mem", $mem_class)
	    or $DBI::PurePerl;
    }
}


sub _rebless {
    my $dbh = shift;
    my ($outer, $inner) = DBI::_handles($dbh);
    my $class = shift(@_).'::db';
    bless $inner => $class;
    bless $outer => $class; # outer last for return
}


sub _set_isa {
    my ($classes, $topclass) = @_;
    my $trace = DBI->trace_msg("       _set_isa([@$classes])\n");
    foreach my $suffix ('::db','::st') {
	my $previous = $topclass || 'DBI'; # trees are rooted here
	foreach my $class (@$classes) {
	    my $base_class = $previous.$suffix;

lib/Loop/Sustainable/Strategy.pm  view on Meta::CPAN

use Class::Accessor::Lite (
    new => 0,
    rw  => [ qw/check_strategy_interval/ ]
);

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $args = ref $_[0] ? $_[0] : +{ @_ };
    bless $args => $class;
}

sub wait_correction { 1; }

1;

__END__

=head1 NAME