view release on metacpan or  search on metacpan

lib/Acme/Akashic/Records.pm  view on Meta::CPAN

package Acme::Akashic::Records;
use warnings;
use strict;
our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g;

my $records;
$records = \$records;
bless $records, __PACKAGE__;

sub AUTOLOAD { $records }

for my $type (qw/ARRAY HASH HANDLE/) {
    no strict 'refs';
    *{ __PACKAGE__ . '::' . $type . '::AUTOLOAD' } = \&AUTOLOAD;

t/00-load.t  view on Meta::CPAN

#!perl -T

use Test::More tests => 1;

BEGIN {
    use_ok( 'Acme::Akashic::Records' ) || print "Bail out!
";
}

diag( "Testing Acme::Akashic::Records $Acme::Akashic::Records::VERSION, Perl $], $^X" );