File Coverage

blib/lib/Class/DBI/Plugin/Param.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch	1	4	25.0
condition			n/a
subroutine	5	6	83.3
pod			n/a
total	24	31	77.4

package Class::DBI::Plugin::Param;

use warnings;
use strict;
use Carp;

our $VERSION = '0.03';

sub import {
    my $class = shift;
    my $callpkg = caller;
    die "This module only works correctly under a subclass of Class::DBI"
        unless ($callpkg->isa('Class::DBI'));
    {
        no strict 'refs';
        *{$callpkg."::param"} = sub {
            my $self = shift;
            my $column_name = shift or
                croak "You gave me no parameters to param()!";
            return $self->$column_name(@_);
        }
    }
}

1;

__END__