view release on metacpan or  search on metacpan

lib/DBIx/Counter.pm  view on Meta::CPAN

    $sth_get->execute( $self->{countername} );
    my ($v) = $sth_get->fetchrow_array;
    $sth_get->finish;

    return $v;
}

sub lock   { 0 }
sub unlock { 0 }
sub locked { 0 }

1;

__END__

=pod

=head1 NAME

DBIx::Counter - Manipulate named counters stored in a database

lib/DBIx/Counter.pm  view on Meta::CPAN

    print "Item $c is being processed\n";

=item lock

Noop. Only provided for API compatibility with File::CounterFile.

=item unlock

Noop. Only provided for API compatibility with File::CounterFile.

=item locked

Noop. Only provided for API compatibility with File::CounterFile.

=back

=head2 GLOBAL SETTINGS

In addition to passing settings through the constructor, it's also possible
to use the package variables $DSN, $LOGIN and $PASSWORD and $TABLENAME. This
allows you to specify the settings application-wide, or within a block of code