/usr/local/CPAN/new.spirit/NewSpirit/DataFile.pm

• package NewSpirit::DataFile
  • read
  • write
• EOF

# $Id: DataFile.pm,v 1.3 2001/03/23 15:35:45 joern Exp $

package NewSpirit::DataFile;

$VERSION = "0.01";
@ISA = qw( NewSpirit::LKFile );

use strict;
use Data::Dumper;
use NewSpirit::LKFile;
use Carp;

sub read {
	my $self = shift;

	my $data = $self->SUPER::read;

	my $href;
	{
		no strict;
		$href = eval $$data;
		croak "error reading DataFile: $@" if $@;
	}

	return $href;
}

sub write {
	my $self = shift;
	my ($href) = @_;
	
	my $data;
	if ( ref $href eq 'HASH' ) {
		my @list;
		foreach my $key ( sort keys %{$href} ) {
			push @list, $key, $href->{$key};
		}
		$data = Dumper (\@list);
		$data =~ s/\[/{(/;
		$data =~ s/];\n$/)};\n/;
	} else {
		$data = Dumper ($href);
	}

	$self->SUPER::write (\$data);

	1;
}

1;