File Coverage

blib/lib/OS/Package/Role/Clean.pm

Criterion	Covered	Total	%
statement	15	23	65.2
branch	0	4	0.0
condition	0	6	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	21	40	52.5

use v5.14.0;
use warnings;

package OS::Package::Role::Clean;

# ABSTRACT: Provides the clean method.
our $VERSION = '0.2.7'; # VERSION

use Path::Tiny;
use OS::Package::Log;
use Role::Tiny;

sub clean {
    my $self = shift;

    if ( defined $self->workdir && -d $self->workdir ) {
        $LOGGER->info( sprintf 'cleaning work directory: %s',
            $self->workdir );

        path($self->workdir)->remove_tree;
    }

    if ( defined $self->fakeroot && -d $self->fakeroot ) {
        $LOGGER->info( sprintf 'cleaning fakeroot directory: %s',
            $self->fakeroot );

        path($self->fakeroot)->remove_tree;
    }

    return 1;
}

1;

__END__