File Coverage

blib/lib/GBPVR/CDBI/RecTracker/RecordedShows.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package GBPVR::CDBI::RecTracker::RecordedShows;
2              
3 2     2   25284 use warnings;
  2         5  
  2         60  
4 2     2   12 use strict;
  2         3  
  2         92  
5              
6             our $VERSION = '0.02';
7              
8 2     2   13 use base 'GBPVR::CDBI::RecTracker';
  2         4  
  2         711  
9              
10             __PACKAGE__->table('RecordedShows');
11             __PACKAGE__->columns(Primary => qw/oid/ );
12             __PACKAGE__->columns(All => qw/
13             name sub_title description unqiue_id startdate
14             / );
15              
16             sub unique_id {
17             my $self = shift;
18             return $self->unqiue_id( @_ );
19             }
20              
21             1;
22             __END__