File Coverage

blib/lib/Games/Dukedom/Signal.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch			n/a
condition	0	2	0.0
subroutine	2	3	66.6
pod	1	1	100.0
total	9	18	50.0

package Games::Dukedom::Signal;

our $VERSION = 'v0.1.2';

use Moo;
with 'Throwable';

use overload
  q{""}    => 'as_string',
  fallback => 1;

around BUILDARGS => sub {
    my $orig  = shift;
    my $class = shift;

    unshift( @_, 'msg' ) if @_ == 1 && !ref( $_[0] );

    return $class->$orig( {@_} );
};

has msg => (
    is      => 'ro',
    default => undef,
);

has action => (
    is      => 'ro',
    default => undef,
);

has default => (
    is      => 'ro',
    default => undef,
);

sub as_string {
    my $self = shift;

    my $str = ref($self);
    for ( keys(%{$self}) ) {
        $str .= "\n  $_: " . ($self->{$_} || '');
    }

    return $str;
}

1;

__END__