The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Video::PlaybackMachine::ContentManager

SYNOPSIS

  use Video::PlaybackMachine::ContentManager qw(
    get_title
    get_length
    add_movie
    add_fill
    get_missing
  );

  # Make a stab at converting a filename into a title
  my $title = get_title("movie_it_came_from_outer_space.avi");

  # Get the names of all files from the database which don't exist on
  # the file system
  my @missing = get_missing();

  # Return the length of the given file in seconds
  my $length = get_length("movie_doctor_who.avi");

  # Add a movie to the database to be scheduled
  add_movie('movie_x_from_outer_space.avi', 'The X From Outer Space', 12313);

  # Add a movie to the database as a fill short
  add_fill('short_godzilla_vs_bambi.avi', 'Godzilla Vs. Bambi', 3213);