view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

#!perl
use strict;
use warnings;
use Test::More;
use Acme::Cat::Schroedinger;
use Data::Dumper;

sub kitty {
	Acme::Cat::Schroedinger->new(@_);
}

my $cat = kitty;

ok (!ref (kitty.''), "Stringification works");

ok (ref ($cat), 'Cat is an object');