File Coverage

blib/lib/BackPAN/Index/Release.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	1	3	33.3
total	35	37	94.5

use utf8;
package BackPAN::Index::Release;

# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE

use strict;
use warnings;

use base 'DBIx::Class::Core';
__PACKAGE__->table("releases");
__PACKAGE__->add_columns(
  "path",
  { data_type => "text", is_foreign_key => 1, is_nullable => 0 },
  "dist",
  { data_type => "text", is_foreign_key => 1, is_nullable => 0 },
  "date",
  { data_type => "integer", is_nullable => 0 },
  "size",
  { data_type => "text", is_nullable => 0 },
  "version",
  { data_type => "text", is_nullable => 0 },
  "maturity",
  { data_type => "text", is_nullable => 0 },
  "distvname",
  { data_type => "text", is_nullable => 0 },
  "cpanid",
  { data_type => "text", is_nullable => 0 },
);
__PACKAGE__->set_primary_key("path");
__PACKAGE__->belongs_to(
  "dist",
  "BackPAN::Index::Dist",
  { name => "dist" },
  { is_deferrable => 0, on_delete => "NO ACTION", on_update => "NO ACTION" },
);
__PACKAGE__->has_many(
  "dists_first_releases",
  "BackPAN::Index::Dist",
  { "foreign.first_release" => "self.path" },
  { cascade_copy => 0, cascade_delete => 0 },
);
__PACKAGE__->has_many(
  "dists_latest_releases",
  "BackPAN::Index::Dist",
  { "foreign.latest_release" => "self.path" },
  { cascade_copy => 0, cascade_delete => 0 },
);
__PACKAGE__->belongs_to(
  "path",
  "BackPAN::Index::File",
  { path => "path" },
  { is_deferrable => 0, on_delete => "NO ACTION", on_update => "NO ACTION" },
);


# Created by DBIx::Class::Schema::Loader v0.07033 @ 2012-12-27 01:39:08
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:MhFMcHAmoBJtN17iZgHLEw

use Mouse;
with 'BackPAN::Index::Role::AsHash';

use overload
  q[""]         => sub { $_[0]->distvname },
  fallback      => 1;

sub data_methods {
    return qw(dist version cpanid date path maturity);
}

sub filename {
    my $self = shift;
    return $self->path->filename;
}

# Compatibility with PBP
sub prefix {
    my $self = shift;
    return $self->path;
}

1;

__END__