File Coverage

blib/lib/Config/Constants/XML.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod			n/a
total	29	32	90.6

package Config::Constants::XML;

use strict;
use warnings;

our $VERSION = '0.02';

use base 'Config::Constants::Perl';

use Config::Constants::XML::SAX::Handler;
use XML::SAX::ParserFactory;

sub _init {
    my ($self, $file) = @_;
    (-e $file && -f $file)
        || die "Bad config file '$file' either it doesn't exist or it's not a file";
    my $handler = Config::Constants::XML::SAX::Handler->new();
    my $p = XML::SAX::ParserFactory->parser(Handler => $handler);
    $p->parse_uri($file);
    $self->{_config} = $handler->config();
}

1;

__END__