File Coverage

blib/lib/App/MaMGal/Entry/Picture/Film.pm

Criterion	Covered	Total	%
statement	18	37	48.6
branch	0	8	0.0
condition	0	6	0.0
subroutine	6	10	60.0
pod	0	3	0.0
total	24	64	37.5

# mamgal - a program for creating static image galleries
# Copyright 2007, 2008 Marcin Owsiany
# See the README file for license information
# The picture encapsulating class
package App::MaMGal::Entry::Picture::Film;
use strict;
use warnings;
use base 'App::MaMGal::Entry::Picture';
use App::MaMGal::VideoIcon;
use Carp;
use Scalar::Util 'blessed';

my $thumbnail_extension = '.png';

sub refresh_scaled_pictures
{
	my $self = shift;
	return $self->refresh_miniatures([$self->thumbnails_dir, 200, 150, $thumbnail_extension]);
}

sub _new_video_icon
{
	my $self = shift;
	my $s = Image::Magick->new(magick => 'png');
	$s->BlobToImage(App::MaMGal::VideoIcon->img);
	$s;
}

sub read_image
{
	my $self = shift;
	my $tools = $self->tools or croak "Tools were not injected.";
	my $w = $tools->{mplayer_wrapper} or croak "MplayerWrapper required.";
	my $s;
	eval { $s = $w->snapshot($self->{path_name}); };
	if ($@) {
		if (blessed($@) and (
			$@->isa('App::MaMGal::MplayerWrapper::NotAvailableException')
			or
			$@->isa('App::MaMGal::MplayerWrapper::ExecutionFailureException')
		)) {
			$self->logger->log_exception($@, $self->{path_name});
			$s = $self->_new_video_icon;
		} else {
			die $@;
		}
	}
	return $s;
}

sub thumbnail_path { $_[0]->SUPER::thumbnail_path.$thumbnail_extension }

1;