File Coverage

blib/lib/File/Tasks/Task.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	25	28	89.2

package File::Tasks::Task;

# See POD at end for docs

use strict;
use overload 'bool' => sub () { 1 };
use overload '""'   => 'path';

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





#####################################################################
# Constructor and Accessors

sub new {
	my $class  = shift;
	my $path   = defined $_[1] ? $_[1] : return undef;
	bless { path => $path }, $class;
}

sub path { $_[0]->{path} }

1;

__END__