File Coverage

blib/lib/App/PerlWatcher/Describable.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	20	20	100.0

package App::PerlWatcher::Describable;
{
  $App::PerlWatcher::Describable::VERSION = '0.20';
}
# ABSTRACT: The base role for providing description for UI

use 5.12.0;
use strict;
use warnings;

use Moo::Role;


requires 'description';


requires 'start';



has 'describer' => ( is => 'ro', default => sub { return sub { $_[0]; }; }, );



sub describe {
    my $self = shift;
    return $self->describer->($self->description);
}

1;

__END__