view release on metacpan or  search on metacpan

lib/Insolation.pm  view on Meta::CPAN

	# only require if they use this method
	my $package = 'XML::Simple';
	eval {
		(my $pkg = $package) =~ s|::|/|g; # require need a path
  	require "$pkg.pm";
		import $package;
	};
	die $@ if( $@ );

	my $xs   = XML::Simple->new(
		AttrIndent => 1,
		RootName   => 'Insolation',
		KeyAttr    => [ 'date' => 'name'],
		NoAttr     => 1,
	);

	my $xml = $xs->XMLout($self->{data});
	#print "$xml";

	return $xml;
}