File Coverage

blib/lib/Apache/AxKit/Provider/DOM.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Apache::AxKit::Provider::DOM;

use strict;

use vars qw( $VERSION @ISA );

use Apache::AxKit::Exception;
use Apache::AxKit::Provider;

$VERSION = 0.01;
@ISA = ('Apache::AxKit::Provider');

#------------------------------------------------------------------------#
# process                                                                #
#------------------------------------------------------------------------#
# AxKit should only process the ressource if the provider has a dom_tree
#
sub process {
    my $self = shift;
    return defined $self->{dom_tree} ? 1 : 0 ;
}

sub exists {
    my $self = shift;
    return $self->process;
}

#------------------------------------------------------------------------#
# pseudo noops                                                           #
#------------------------------------------------------------------------#
sub mtime        { return time; }
sub has_changed  { return 1; }
sub key          { return 'dom_provider'; }

sub get_fh {
    throw Apache::AxKit::Exception::IO( -text => "Can't get fh for Scalar" );
}

#------------------------------------------------------------------------#
# get_strref                                                             #
#------------------------------------------------------------------------#
# The DOM provider returns the string value of the document tree if a
# document is present, otherwise it throws an error
#
sub get_strref {
    my $self = shift;
    if ( defined $self->{dom_tree} ) {
        my $str = $self->{dom_tree}->toString;
        $self->{apache}->pnotes('dom_tree' => $self->{dom_tree} );
        return \$str;
    }
    else {
        throw Apache::AxKit::Exception::IO( -text => "Can't get the XML DOM" );
    }
}


1;

__END__