GBPVR::CDBI::VideoArchive::ArchiveTable - VideoArchive.archivetable table

GBPVR-CDBI documentation

Contained in the GBPVR-CDBI distribution.

Index

NAME
VERSION
SYNOPSIS
ATTRIBUTES
METHODS
- programme
AUTHOR
COPYRIGHT & LICENSE

Code Index:

package GBPVR::CDBI::VideoArchive::ArchiveTable
- programme
__END__
EOF

NAME

GBPVR::CDBI::VideoArchive::ArchiveTable - VideoArchive.archivetable table

VERSION

Version 0.02

SYNOPSIS

ATTRIBUTES

VideoFile, Title, Description, StartTime, RecordDate, ChannelName, Viewed, UniqueID, Genre, Subtitle, Runtime, Actors, Rating, Director, PosterImage, InternetFetchCompleted, YearOfRelease, Tagline

METHODS

programme

Attempts to return the corresponding (via uniqueID) GBPVR::CDBI::Programme object.

AUTHOR

David Westbrook, <dwestbrook at gmail.com>

COPYRIGHT & LICENSE

Copyright 2006 David Westbrook, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

GBPVR-CDBI documentation

Contained in the GBPVR-CDBI distribution.

package GBPVR::CDBI::VideoArchive::ArchiveTable;

use warnings;
use strict;

our $VERSION = '0.02';

use base 'GBPVR::CDBI::VideoArchive';
use GBPVR::CDBI::Programme;

__PACKAGE__->table('archivetable');
__PACKAGE__->columns(Primary => qw/VideoFile/ );
__PACKAGE__->columns(All => qw/
	Title Description StartTime RecordDate ChannelName Viewed
	UniqueID Genre Subtitle Runtime
	Actors Rating Director PosterImage 
	InternetFetchCompleted YearOfRelease Tagline
	Writer ViewerRating Votes / );

sub programme {
  my $obj = shift;
  my ($prog) = GBPVR::CDBI::Programme->search( unique_identifier => $obj->UniqueID );
  return $prog;
}

1;
__END__