File Coverage

blib/lib/Pod/XPath.pm

Criterion	Covered	Total	%
statement	38	41	92.6
branch	5	8	62.5
condition	0	3	0.0
subroutine	8	8	100.0
pod	0	1	0.0
total	51	61	83.6

package Pod::XPath;

# ----------------------------------------------------------------------
# $Id: XPath.pm,v 1.4 2003/09/12 16:04:38 dlc Exp $
# ----------------------------------------------------------------------
# Pod::XPath -- use XPath expressions to navigate a POD document.
# Copyright (C) 2003 darren chamberlain
# ----------------------------------------------------------------------

use strict;
use vars qw($VERSION $REVISION $XPATH_CLASS);

$VERSION = "1.00";
$REVISION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;
$XPATH_CLASS = 'XML::XPath' unless defined $XPATH_CLASS;

use Carp qw(carp);
use IO::Handle qw(SEEK_SET);
use IO::String;
use Pod::XML;
use UNIVERSAL::require;

sub new {
    my ($class, $pod) = @_;
    my ($parser, $data, $string);

    $string = IO::String->new;
    $parser = Pod::XML->new();

    if (UNIVERSAL::isa($pod, 'GLOB')) {
        # Filehandle
        $parser->parse_from_filehandle($pod, $string);
    }
    elsif (-f $pod) {
        # Given a filename
        $parser->parse_from_file($pod, $string);
    }
    elsif ($pod =~ /::/) {
        # A module name
        $pod->require
            || die $UNIVERSAL::require::ERROR;

        my $podfile = $pod;
        $podfile =~ s#::#/#g;
        $podfile .= '.pm';
        $parser->parse_from_file($INC{$podfile}, $string);
    }
    else {
        my $stuff = ref($pod)  || substr($pod, 0, 32) . "...";
        warn "$class can't use '$stuff' as input.\n"
           . "Sorry it didn't work out.\n";
    }

    {   # Turn the IO::String into a string
        local $/;
        $string->seek(0, SEEK_SET);
        $string = <$string>;
    }

    $XPATH_CLASS->require;

    return $XPATH_CLASS->new(ioref => $string);
}

1;
__END__