File Coverage

blib/lib/CPAN/Index/Package.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	24	25	96.0

package CPAN::Index::Package;

use strict;
use base 'DBIx::Class';
use version ();

use vars qw{$VERSION};
BEGIN {
	$VERSION = '0.01';
}

__PACKAGE__->load_components('Core');

__PACKAGE__->table('package');

__PACKAGE__->add_columns(
	name => {
		data_type         => 'varchar',
		size              => 255,
		is_nullable       => 0,
		is_auto_increment => 0,
		default_value     => '',
		},
	version => {
		accessor          => 'version_string',
		data_type         => 'varchar',
		size              => 32,
		is_nullable       => 1,
		is_auto_increment => 0,
		default_value     => '',
		},
	path => {
		data_type         => 'varchar',
		size              => 255,
		is_nullable       => 0,
		is_auto_increment => 0,
		default_value     => '',
		},
	);

__PACKAGE__->set_primary_key('name');

sub version {
	my $self  = shift;
	my $value = $self->version_string(@_);
	defined($value) ? version->new($value) : undef;
}

1;

__END__