File Coverage

blib/lib/IOC/Config/XML.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	4	100.0
condition	4	6	66.6
subroutine	7	7	100.0
pod	2	2	100.0
total	44	46	95.6

package IOC::Config::XML;

use strict;
use warnings;

our $VERSION = '0.03';

use IOC::Exceptions;
use IOC::Config::XML::SAX::Handler;

use XML::SAX::ParserFactory;

sub new {
    my ($_class) = @_;
    my $class = ref($_class) || $_class;
    my $config = {
        _config => {}
    };
    bless($config, $class);
    return $config;
}

sub read {
    my ($self, $source) = @_;
    (defined($source) && $source)
        || throw IOC::InsufficientArguments "You must provide something to read";
    my $handler = IOC::Config::XML::SAX::Handler->new();
    my $p = XML::SAX::ParserFactory->parser(Handler => $handler);
    if ($source =~ /\.xml$/) {
        $p->parse_uri($source);
    }
    else {
        $p->parse_string($source);
    }
}

1;

__END__