Select Code to Download

# $Id: Simpler.pm,v 1.0 2002/04/01 00:00:00 grantm Exp $

...

1;
__END__

package XML::Simpler;

...
}
1;
__END__

sub write_file
{
...
    close(F) || croak "close $f: $!";
    return 1;
}