File Coverage

blib/lib/XML/Bare/SAX/Parser.pm

Criterion	Covered	Total	%
statement	9	40	22.5
branch	0	2	0.0
condition			n/a
subroutine	3	8	37.5
pod	1	5	20.0
total	13	55	23.6

package XML::Bare::SAX::Parser;

$VERSION = "0.01";

use base qw(DynaLoader);

bootstrap XML::Bare::SAX::Parser $VERSION;

use vars qw ($VERSION);
use strict;

sub new {
    my $class = shift;
    unshift @_, 'Handler' unless @_ != 1;
    my %p = @_;
    return bless \%p, $class;
}

#sub DESTROY {
#   my $self = shift;
#   XML::Bare::SAX::Parser::free_tree();
#}

sub supported_features {
    my $self = shift;
    # Only namespaces are required by all parsers
    return (
        'http://xml.org/sax/features/namespaces',
    );
}

sub parse_string {
    my $self = shift;
    my $string = shift;
    my $handler = $self->{Handler};
    my $document = { Parent => undef };

    $handler->start_document($document);
    #my $node = { Name => 'xml' };
    #$handler->start_element($node);
    XML::Bare::SAX::Parser::parse( $handler, $string );
    #$handler->end_element($node);
    $handler->end_document($document);
}

sub parse_file {
  my $self = shift;
  my $file = shift;
  open( FILE, $file );
  $self->parse_uri( $file );
  close( FILE );
}

sub parse_uri {
    my $self = shift;
    my $file = shift;

    open( FILE, $file );
    my $string; { local $/ = undef; $string = <$file>; }
    close( FILE );
    my $handler = $self->{Handler};
    my $document = { Parent => undef };

    $handler->start_document($document);
    #my $node = { Name => 'xml' };
    #$handler->start_element($node);

    XML::Bare::SAX::Parser::parse( $handler, $string );
    #$handler->end_element($node);
    $handler->end_document($document);
}

1;

__END__