File Coverage

blib/lib/Class/Listener.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch	1	4	25.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	19	24	79.1

package Class::Listener;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.01.04';

our $DEBUG = 0;

our $callback_fmt = "_on_%s";

    sub signal : method
    {
        my $this = shift;

        my $event = shift;

		my $method = sprintf $callback_fmt, $event;

            return $this->$method( $event, @_ ) if $this->can( $method );

            warn "D: $method - unimplemented event called\n" if $DEBUG;

    return undef;
    }

1;
__END__