File Coverage

lib/Class/DBI/Lite/ColumnInfo.pm

Criterion	Covered	Total	%
statement	17	18	94.4
branch	2	4	50.0
condition			n/a
subroutine	6	8	75.0
pod	1	4	25.0
total	26	34	76.4

package Class::DBI::Lite::ColumnInfo;

use strict;
use warnings 'all';


#==============================================================================
sub new
{
  my ($class, %args) = @_;

  my @required = qw(
    name
    type
    length
    is_nullable
    default_value
    is_pk
    key
  );

  foreach( @required )
  {
    die "Required parameter '$_' was not provided"
      unless exists($args{$_});
  }# end foreach()

  return bless \%args, $class;
}# end new()

sub null { $_[0]->{is_nullable} }
sub default { $_[0]->{default_value} }
sub enum_values { shift->{enum_values} }


#==============================================================================
sub AUTOLOAD
{
  my $s = shift;
  our $AUTOLOAD;
  my ($key) = $AUTOLOAD =~ m/([^:]+)$/;

  return exists($s->{$key}) ? $s->{$key} : die "Invalid field '$key'";
}# end AUTOLOAD()
sub DESTROY {}

1;# return true:

__END__