File Coverage

blib/lib/RPC/XML/Parser.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	2	100.0
condition	6	9	66.6
subroutine	9	9	100.0
pod	2	2	100.0
total	48	51	94.1

###############################################################################
#
# This file copyright (c) 2001-2011 Randy J. Ray, all rights reserved
#
# Copying and distribution are permitted under the terms of the Artistic
# License 2.0 (http://www.opensource.org/licenses/artistic-license-2.0.php) or
# the GNU LGPL (http://www.opensource.org/licenses/lgpl-2.1.php).
#
###############################################################################
#
#   Description:    This is the RPC::XML::Parser class, an empty class that
#                   acts as an interface for parser implementations that can
#                   be created/returned by RPC::XML::ParserFactory.
#
#   Functions:      new
#                   parse
#
#   Global Consts:  $VERSION
#
#   Environment:    None.
#
###############################################################################

package RPC::XML::Parser;

use 5.008008;
use strict;
use warnings;
use vars qw($VERSION);
use subs qw(new parse);

$VERSION = '1.24';
$VERSION = eval $VERSION; ## no critic (ProhibitStringyEval)

###############################################################################
#
#   Sub Name:       new
#
#   Description:    Constructor. Dies, because this should be overridden.
#
#                   Per RT#50013: Now, when called specifically for this class,
#                   quietly loads RPC::XML::ParserFactory and instantiates a
#                   parser based on XML::Parser.
#
#   Returns:        undef
#
###############################################################################
sub new
{
    my ($class, @args) = @_;

    if ($class eq 'RPC::XML::Parser')
    {
        # For sake of not breaking backwards-compatibility with projects like
        # Catalyst::Plugin::Server::XMLRPC, in this case quietly load the
        # RPC::XML::ParserFactory and return a factory-generated instance:
        require RPC::XML::ParserFactory;

        return RPC::XML::ParserFactory->new(class => 'xmlparser', @args);
    }

    die __PACKAGE__ . '::new: This method should have been overridden by ' .
        "the $class class\n";
}

###############################################################################
#
#   Sub Name:       parse
#
#   Description:    Parse the requested string or stream, or return a
#                   push-parser instance. In this case, it dies because the
#                   sub-class should have overridden it.
#
#   Returns:        dies
#
###############################################################################
sub parse
{
    my $class = shift;
    $class = ref($class) || $class;

    die __PACKAGE__ . '::parse: This method should have been overridden by ' .
        "the $class class\n";
}

###############################################################################
#
#   Sub Name:       parse_more
#
#   Description:    When called on a push-parser instance (which may or may
#                   not be the same class), parses additional content and
#                   waits for more. In this case it dies because the sub-class
#                   should have overridden it.
#
#   Returns:        dies
#
###############################################################################
sub parse_more
{
    my $class = shift;
    $class = ref($class) || $class;

    die __PACKAGE__ . '::parse_more: This method should have been overridden' .
        " by the $class class\n";
}

###############################################################################
#
#   Sub Name:       parse_done
#
#   Description:    When called on a push-parser instance (which may or may
#                   not be the same class), finishes the parse process and
#                   returns the result. In this case it dies because the
#                   sub-class should have overridden it.
#
#   Returns:        dies
#
###############################################################################
sub parse_done
{
    my $class = shift;
    $class = ref($class) || $class;

    die __PACKAGE__ . '::parse_done: This method should have been overridden' .
        " by the $class class\n";
}

1;

__END__