#!/usr/local/bin/perl
package Parser;

use strict;
require Exporter;
require DynaLoader;
our @ISA = qw(DynaLoader Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw() ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();
our $VERSION = '1.261';
bootstrap Parser $VERSION;

sub new {
    my $class = shift;  $class = ref $class if ref $class;
    my $self = { strip_autos=>0,
		 @_};
    bless $self, $class;
    return $self;
}

sub read {
    my $self = shift;
    my %param = (@_);
    if (!-r $param{filename}) { print "%Error: file not found: $param{filename}, stopped";}
    $self->_read_xs($param{filename}, $param{strip_autos}||$self->{strip_autos});
}