File Coverage

blib/lib/Treemap/Input/XML.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Treemap::Input::XML;

use 5.006;
use strict;
use warnings;
use Carp;
use XML::Simple;

require Exporter;
require Treemap::Input;

our @ISA = qw( Treemap::Input Exporter );
our @EXPORT_OK = (  );
our @EXPORT = qw( );
our $VERSION = '0.01';


# ------------------------------------------
# Methods:
# ------------------------------------------

sub load
{
   my $self = shift;
   my( $path ) = @_;

   if ( $self->{ DATA } = $self->_load( $path )  )
   {
      return 1;
   }
   return 0;
}

# ------------------------------------------
# ------------------------------------------
#  Hey, look at that, XML loads right in as our tree map data structure. Ain't
#  that handy?
# ------------------------------------------
sub _load
{
   my $self = shift;
   my( $path ) = @_;
   my $tree = XMLin( $path, keyattr => {}, forcearray => [ "children" ] );
   return $tree;
}

1;

__END__