package ActivePerl::PPM::RepoPackage; use strict; use base qw(ActivePerl::PPM::Package); sub BASE_FIELDS { my $class = shift; return ( $class->SUPER::BASE_FIELDS, [repo_id => "integer not null"], [ppd_fresh_until => "integer"], ); } 1; __END__ =head1 NAME ActivePerl::PPM::RepoPackage - Package class that tracks PPD file attributes =head1 DESCRIPTION C is a subclass of C that adds a few fields that is used to track changes to the corresponding PPD file. The following are the new attributes: =over =item $id = $pkg->repo_id What repo does this package come from. =item $url = $pkg->ppd_uri Inherited, but here this might be a relative URI and is then interpreted relative to the packlist_uri of the repo. =item $num = $pkg->ppd_fresh_until At what time should the ppd information be refreshed from the repo. =item =back =head1 SEE ALSO L, L =head1 BUGS none.