File Coverage

blib/lib/Class/MethodCache.pm

Criterion	Covered	Total	%
statement	18	22	81.8
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	24	29	82.7

#!/usr/bin/perl

package Class::MethodCache;

use strict;
use warnings;

use vars qw($VERSION @ISA);

BEGIN {
	$VERSION = '0.05';

	local $@;

	eval {
		require XSLoader;
		__PACKAGE__->XSLoader::load($VERSION);
		1;
	} or do {
		warn $@;
		require DynaLoader;
		push @ISA, 'DynaLoader';
		__PACKAGE__->bootstrap($VERSION);
	};

}

use Sub::Exporter -setup => {
	exports => [qw(
		get_gv_refcount
		set_cvgen
		get_cvgen
		set_cv
		get_cv
		get_class_gen

		delete_cv
		update_cvgen
		set_cached_method
		get_cached_method
	)],
	groups => {
		default => [qw(
			update_cvgen
			set_cached_method
			get_cached_method
		)],
	},
};



__PACKAGE__

__END__