File Coverage

blib/lib/Test/Stream/Event.pm

Criterion	Covered	Total	%
statement	20	25	80.0
branch	3	4	75.0
condition	0	2	0.0
subroutine	11	11	100.0
pod	5	6	83.3
total	39	48	81.2

package Test::Stream::Event;
use strict;
use warnings;

use Carp qw/confess carp/;

use Test::Stream::HashBase(
    accessors => [qw/debug nested/],
);

sub import {
    my $class = shift;

    # Import should only when event is imported, subclasses do not use this
    # import.
    return if $class ne __PACKAGE__;

    carp "The magical 'import' method on $class is deprecated and will be removed in the near future.";

    my $caller = caller;
    my (%args) = @_;

    my $accessors = $args{accessors} || [];

    # %args may override base
    Test::Stream::HashBase->import(into => $caller, base => $class, %args);
}

sub init {
    confess("No debug info provided!") unless $_[0]->{+DEBUG};
}

sub causes_fail  { 0 }

sub to_tap       {()};
sub update_state {()};
sub terminate    {()};
sub global       {()};

1;

__END__