File Coverage

blib/lib/Image/Delivery/Provider/File.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	1	0.0
total	27	32	84.3

package Image::Delivery::Provider::File;

use strict;
use base 'Image::Delivery::Provider::Scalar';
use File::Slurp ();

use vars qw{$VERSION};
BEGIN {
	$VERSION = '0.14';
}





#####################################################################
# Constructor

sub new {
	my $class = shift;
	my $file  = (defined $_[0] and -f $_[0] and -r _) ? shift : return undef;

	# Slurp in the image
	my $image = File::Slurp::read_file( $file, scalar_ref => 1 );
	return undef unless ref $image eq 'SCALAR';

	# Hand off to our parent
	$class->SUPER::new( $image, @_ );
}

1;