File Coverage

blib/lib/ASP4/ConfigParser.pm

Criterion	Covered	Total	%
statement	15	18	83.3
branch	0	2	0.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	20	27	74.0

package ASP4::ConfigParser;

use strict;
use warnings 'all';
use ASP4::Config;


sub new
{
  my ($class) = @_;

  return bless { }, $class;
}# end new()


sub parse
{
  my ($s, $doc, $root) = @_;

  my $config = ASP4::Config->new( $doc, $root );

  # Now do any post-processing:
  foreach my $class ( $config->system->post_processors )
  {
    (my $file = "$class.pm") =~ s/::/\//;
    require $file unless $INC{$file};
    $config = $class->new()->post_process( $config );
  }# end foreach()

  return $config;
}# end parse()

1;# return true: