File Coverage

blib/lib/CGI/Application/Plugin/AbstractCallback.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	7	85.7
pod	1	1	100.0
total	32	41	78.0

package CGI::Application::Plugin::AbstractCallback;

use strict;
use warnings;

our $VERSION = '0.03';

use Carp;
use CGI::Application;

sub import {
	my $class = shift;
	my $hook = shift;

	my $caller = scalar caller;

	if (UNIVERSAL::isa($caller, 'CGI::Application') && defined $hook) {
		eval {
			no strict 'refs';
			# $caller->add_callback($hook, \&{$class . '::callback'});
			$caller->add_callback($hook, $class->can('callback'));
		};
		if ($@) {
			carp $@;
		}
	}
	else {
		carp "Invalid call from package is't a CGI::Application, or not defined hook $hook";
	}
}

sub callback {
	my CGI::Application $self = shift;
	my %args = @_;
	# no action
	# please override me
}

1;
__END__