File Coverage

blib/lib/Attribute/Unimplemented.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	37	39	94.8

package Attribute::Unimplemented;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.02';

use Attribute::Handlers;

my %done = ();

sub UNIVERSAL::Unimplemented : ATTR(CODE) {
    my($package, $symbol, $referent, $attr, $data, $phase) = @_;
    my $meth = *{$symbol}{NAME};
    no warnings 'redefine';
    *{$symbol} = sub {
	my($caller, $file, $line) = caller;
	unless ($done{"$file:$line"}++) {
	    require Carp;
	    Carp::carp "$package\::$meth() is not yet implemented.",
		    " just ignored this time.";
	}
	return 1;
    };
}

1;
__END__