File Coverage

blib/lib/File/Tasks/Remove.pm

Criterion	Covered	Total	%
statement	13	17	76.4
branch	0	2	0.0
condition			n/a
subroutine	5	8	62.5
pod	3	3	100.0
total	21	30	70.0

package File::Tasks::Remove;

# See POD at end for docs

use strict;
use base 'File::Tasks::Task';
use File::Flat ();

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





#####################################################################
# File::Tasks::Task

sub type { 'Remove' }

sub test {
	my $self = shift;
	File::Flat->isaFile( $self->path ) and File::Flat->canRemove( $self->path );
}

sub execute {
	File::Flat->remove( shift()->path );
}

1;

__END__