File Coverage

blib/lib/Acme/Class/Std.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	6	9	66.6
subroutine	5	5	100.0
pod	0	1	0.0
total	31	35	88.5

package Acme::Class::Std;

use strict;

require Exporter;
use Class::Std();

use vars qw($VERSION);
*ISA = \*Class::Std::ISA;
*EXPORT = \*Class::Std::EXPORT;
*EXPORT_OK = \*Class::Std::EXPORT_OK;
*EXPORT_TAGS = \*Class::Std::EXPORT_TAGS;

$VERSION = '0.01';

my $count = "ACME";
my %enhanced;
my $all = 0;

sub import {
  $enhanced{+caller}++;
  goto &Class::Std::import;
}

sub ID ($) {
  my ($package, undef, undef, $sub) = caller 1;
  if ($sub eq 'Class::Std::new' && $_[0]->isa('SCALAR')
      && ($all || $enhanced{ref $_[0]})) {
    # Strangely, it seems that one can dup an unopened file handle without
    # warnings.
    eval "open $count, '<&dead'";
    my $ref = *{delete $Acme::Class::Std::{$count++}}{IO};
    $_[0] = bless $ref, ref $_[0];
  }
  goto &Scalar::Util::refaddr;
}

{
  local $^W;
  *Class::Std::ID = \&ID;
}

__END__