File Coverage

blib/lib/Csistck/Role.pm

Criterion	Covered	Total	%
statement	30	32	93.7
branch	1	2	50.0
condition			n/a
subroutine	7	9	77.7
pod	2	5	40.0
total	40	48	83.3

package Csistck::Role;

use strict;
use warnings;
use 5.010;

use Csistck;


sub new {
    my $class = shift;
    my %args = @_;
    my $args = \%args;

    my $self = {};
    $self->{tests} = [];
    bless($self, $class);

    # We won't add keys that overlap with required keys,
    # drop silently for now. Set up tests after
    $self->defaults();
    foreach my $key (keys (%{$args})) {
        $self->{$key} = $args->{$key}
          unless ($key =~ /^tests$/);
    }
    $self->tests();

    return $self;
}

# For overriding
sub defaults { return; };
sub tests { return; };

# Add test to object
sub add {
    my $self = shift;
    my @tests = @_;
    push(@{$self->{tests}}, @tests);
}

# Return tests
sub get_tests {
    my $self = shift;
    return $self->{tests};
}

1;
__END__