File Coverage

blib/lib/FlashVideo/Site.pm

Criterion	Covered	Total	%
statement	3	8	37.5
branch	0	2	0.0
condition			n/a
subroutine	1	6	16.6
pod	0	5	0.0
total	4	21	19.0

# Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::Site;

use strict;

# Various accessors to avoid plugins needing to know about the exact command
# line options. This will improve at some point (i.e. more OO)

sub debug {
  $App::get_flash_videos::opt{debug};
}

sub action {
  $App::get_flash_videos::opt{play} ? "play" : "download";
}

sub player {
  $App::get_flash_videos::opt{player};
}

sub yes {
  $App::get_flash_videos::opt{yes};
}

sub quiet {
  $App::get_flash_videos::opt{quiet};
}

1;