File Coverage

blib/lib/English/Reference.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	8	9	88.8
pod	0	5	0.0
total	27	35	77.1

package English::Reference;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
	     ARRAY CODE GLOB HASH SCALAR
	     );
@EXPORT_OK = qw(
	     deref
	     );

$VERSION = '0.01';

#bootstrap English::Reference $VERSION;

sub ARRAY($) {
    return @{ shift() };
}
sub CODE($) {
    return &{ shift() };
}
sub GLOB($) {
    return *{ shift() };
}
sub HASH($) {
    return %{ shift() };
}
sub SCALAR($) {
    return ${ shift() };
}

sub deref($) {
    no strict qw(refs);
    return &{ref($_[0])}($_[0]);
}

1;
__END__