File Coverage

blib/lib/XML/Catalogs.pm

Criterion	Covered	Total	%
statement	12	32	37.5
branch	0	4	0.0
condition			n/a
subroutine	4	8	50.0
pod	3	3	100.0
total	19	47	40.4

package XML::Catalogs;

use strict;
use warnings;

use version; our $VERSION = qv('v1.6.0');


use File::ShareDir qw( );


sub import {
   my $class = shift;
   for ( @_ ) {
      if ( $_ eq -libxml ) {
         $class->notify_libxml()
      } else {
         require Carp;
         Carp::croak( "Unrecognized import $_" );
      }
   }
}


sub get_catalog_path {
   my $class = shift;

   my $path = eval { File::ShareDir::module_file( $class, 'catalog.xml' ) };
   if ( !defined( $path ) ) {
      require Carp;
      Carp::croak( "Can't locate ${class}'s catalog" );
   }

   return $path;
}


sub get_catalog_url {
    my $class = shift;
    require URI::file;
    return URI::file->new( $class->get_catalog_path() );
}


sub notify_libxml {
    my $class = shift;
    require XML::LibXML;
    XML::LibXML->VERSION( 1.53 );
    XML::LibXML->load_catalog(
        $class->get_catalog_path()
    );
}


1;

__END__