File Coverage

blib/lib/Money/ChangeMaker/Presets.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	3	4	75.0
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	27	28	96.4

package Money::ChangeMaker::Presets;

require 5;
use strict;
use Money::ChangeMaker::Denomination;

my $ret = undef;

sub _gen_presets_hash {
	return $ret if $ret;
	# Read the data from the POD!  TorgoX++

	my $data;
	{
		local $/;
		$data = ;
	}
	for my $section (split(/=head/, $data)) {
		next unless $section =~ /^2 (\S+).*?Value +Name +Plural\s*-+\n(.*)/s;
		my $ref = [];
		$ret->{$1} = $ref;
		for my $line (split(/\n/, $2)) {
			$line =~ s/^\s+//;
			my @elements = split(/ {2,}/, $line);
			push(@{$ref}, new Money::ChangeMaker::Denomination(@elements));
		}
	}
	return $ret;
}

1;

__DATA__