#!/usr/bin/perl BEGIN { $| = 1; $^W = 1; } use Test::More tests => 2; use Business::AU::Data::ANZIC; # Get a basic io handle my $handle = Business::AU::Data::ANZIC->get('IO::File'); isa_ok( $handle, 'IO::File' ); # Get a Parse::CSV object my $parser = Business::AU::Data::ANZIC->get('Parse::CSV'); isa_ok( $parser, 'Parse::CSV' );