File Coverage

blib/lib/Video/TeletextDB.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Video::TeletextDB;
use 5.006001;
use strict;
use warnings;
use Carp;
use Video::TeletextDB::Access;

our $VERSION = "0.02";
use base qw(Video::TeletextDB::Parameters);

our @CARP_NOT = qw(File::Path
                   Video::TeletextDB::Access Video::TeletextDB::Options
                   Video::TeletextDB::Parameters);

sub init {
    my ($tele, $params) = @_;

    $tele->{access_class} = "Video::TeletextDB::Access" unless
        defined($tele->{access_class} = delete $params->{DbClass});

    $tele->SUPER::init($params);
    $tele->{access_class}->prepare($tele, $params);
}

# It's important that you cannot change the cache_dir.
# That would make upgrade/downgrade in Video::TeletextDB::Access.pm buggy
sub cache_dir {
    croak 'Too many arguments for cache_dir method' if @_ > 1;
    return shift->{cache_dir} ||
        croak "Current access class doesn't support a cache_dir concept";
}

sub access_class {
    croak 'Too many arguments for cache_dir method' if @_ > 1;
    return shift->{access_class};
}

sub access : method {
    my $tele = shift;
    return $tele->access_class->new(parent => $tele, @_);
}

my %delete_params = map { $_ => 1 } qw(channel umask);
sub delete : method {
    # Abuse the access method to collect properties
    my ($tele, %params) = @_;
    my @bad = grep !exists $delete_params{$_}, keys %params;
    croak("Unknown parameters ", join(", ", @bad)) if @bad;
    shift->access(%params, acquire => 0, creat => 1)->delete;
}

1;
__END__