/usr/local/CPAN/XML-Liberal/XML/Liberal/Remedy.pm

• package XML::Liberal::Remedy
  • new
  • apply
• EOF

package XML::Liberal::Remedy;
use strict;
use base qw( Class::Accessor );

sub new {
    my $class = shift;
    my($driver, $line, $pos, $error) = @_;
    bless { driver => $driver, line => $line,
            pos => $pos, error => $error }, $class;
}

sub apply {
    my $self = shift;
    my($xml_ref) = @_;
    $$xml_ref;
}

1;