File Coverage

blib/lib/Business/AU/Data/ANZIC.pm

Criterion	Covered	Total	%
statement	30	40	75.0
branch	3	6	50.0
condition	1	2	50.0
subroutine	11	13	84.6
pod	0	3	0.0
total	45	64	70.3

package Business::AU::Data::ANZIC;

use 5.005;
use strict;
use IO::File       ();
use Parse::CSV     ();
use File::ShareDir ();
use Params::Util   '_CLASS';

use vars qw{$VERSION};
BEGIN {
	$VERSION = '0.01';
}

# Locate the file
my $csv_file = File::ShareDir::module_file('Business::AU::Data::ANZIC', 'anzic.csv');






#####################################################################

sub new {
	my $class = shift;
	my $self  = bless { }, $class;
	return $self;
}

sub provides {
	my @provides = qw{ IO::File Parse::CSV };
	my $want     = _CLASS($_[1]);
	if ( $want ) {
		return grep { $_->isa($want) } @provides;
	} else {
		return @provides;
	}
}

sub get {
	my $either = shift;
	my $want  = _CLASS($_[0]) || 'Parse::CSV';
	if ( $want eq 'IO::File' ) {
		return $either->_io_file;
	}
	if ( $want eq 'Parse::CSV' ) {
		return $either->_parse_csv;
	}
	Carp::croak("Unknown or unsupported data class '$_[0]'");
}

sub _io_file {
	IO::File->new( $csv_file );
}

sub _parse_csv {
	Parse::CSV->new(
		file => $csv_file,
		);
}

1;

__END__