}
sub _coerce {
-
# coerce the XML-parsed config into the correct format
my $class = shift;
my $config = shift;
my $out;
for my $k ( keys %$config ) {
my $ref = $config->{ $k };
- my $name = ref $ref ? delete $ref->{ name } : undef;
+ my $name = ref $ref eq 'HASH' ? delete $ref->{ name } : undef;
if ( defined $name ) {
$out->{ $k }->{ $name } = $ref;
}
=head2 requires_all_of( )
-Specifies that this module requires L<XML::Simple> in order to work.
+Specifies that this module requires L<XML::Simple> and L<XML::NamespaceSupport>
+in order to work.
=cut
-sub requires_all_of { 'XML::Simple' }
+sub requires_all_of { 'XML::Simple', 'XML::NamespaceSupport' }
=head1 CAVEATS
=head1 COPYRIGHT AND LICENSE
-Copyright 2007 by Brian Cassidy
+Copyright 2006-2015 by Brian Cassidy
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.