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

package XML::Simpler;

use strict;
use warnings;

require Exporter;
use File::Slurp;

use vars qw(@ISA @EXPORT $VERSION);
@ISA = qw(Exporter);
@EXPORT = qw( XMLin XMLout );
$VERSION = '1.00';

sub XMLin  { read_file ( $_[0]       ) }
sub XMLout { write_file( $_[1], $_[0]) }

1;
__END__

##</code><code>##

package XML::Simpler;

use strict;
use warnings;

require Exporter;

use vars qw(@ISA @EXPORT $VERSION);
@ISA = qw(Exporter);
@EXPORT = qw( XMLin XMLout );
$VERSION = '1.00';

sub XMLin {
    my $file = shift;
    my @lines();
    open(FILE,$file) or die "couldn't open $file $!";
    while(<FILE>) {
       my $line = $_;
       push @lines, \$line;
    }
    close(FILE);
    return @lines;
}
1;
__END__

##</code><code>##

sub write_file
{
	my ($f, @data) = @_;

	local(*F);

	open(F, ">$f") || croak "open >$f: $!";
	(print F @data) || croak "write $f: $!";
	close(F) || croak "close $f: $!";
	return 1;
}