File Coverage

blib/lib/POE/strict.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	37	37	100.0

package POE::strict;

use warnings;
use strict;

use vars qw($VERSION);

$VERSION = '3.01';

# Assert when dispatching events to nonexistent sessions
sub POE::Kernel::ASSERT_EVENTS () { 1 }

# Assert if internal parameters are wacky
sub POE::Kernel::ASSERT_USAGE () { 1 }

# Bitch about receiving unknown events
sub POE::Session::ASSERT_STATES () { 1 }


use POE::Kernel;
use POE::Session;
use POE;


sub import {
	my @orig_args = @_;

	my @args;
	foreach my $arg (@orig_args) {
		push @args, $arg unless $arg eq __PACKAGE__;
	}

	my $caller = (caller())[0];
	eval "package $caller; use POE qw(@args);";
}

1;
__END__