libs/Hash/Serializer.pm

## -------------------------------------------------------------------------
##  $Id: Exception.pm,v 1.2 2003/02/20 20:53:55 joko Exp $
## -------------------------------------------------------------------------
##  $Log: Exception.pm,v $
## -------------------------------------------------------------------------


package Hash::Serializer;

use strict;
use warnings;

use overload
  '""' => \&stringify,
  ;

sub new {
  #print "new: ", __PACKAGE__, "\n";
  my $class = shift;
  my $value = shift;
  #tie(%{$value}, "Tie::IxHash");
  #return bless \$value => $class;  
  return bless $value => $class;  
}

sub stringify {
  my ($x, $y) = @_;
  
  # dereference value
  # TODO: clear this!!!
  my $value;
  if ( ref($x) eq 'Hash::Serializer' ) {
   $value = $x;
  } else {
   $value = $$x;
  }
  
  my @entries;
  foreach my $h_key (keys %{$value}) {
    my $h_val = $value->{$h_key};
    push @entries, "$h_key: $h_val";
  }
  return join "  /  ", @entries;
}


1;
__END__
1	joko	1.1	## -------------------------------------------------------------------------
2			## $Id: Exception.pm,v 1.2 2003/02/20 20:53:55 joko Exp $
3			## -------------------------------------------------------------------------
4			## $Log: Exception.pm,v $
5			## -------------------------------------------------------------------------
6
7
8			package Hash::Serializer;
9
10			use strict;
11			use warnings;
12
13			use overload
14			'""' => \&stringify,
15			;
16
17			sub new {
18			#print "new: ", __PACKAGE__, "\n";
19			my $class = shift;
20			my $value = shift;
21			#tie(%{$value}, "Tie::IxHash");
22			#return bless \$value => $class;
23			return bless $value => $class;
24			}
25
26			sub stringify {
27			my ($x, $y) = @_;
28
29			# dereference value
30			# TODO: clear this!!!
31			my $value;
32			if ( ref($x) eq 'Hash::Serializer' ) {
33			$value = $x;
34			} else {
35			$value = $$x;
36			}
37
38			my @entries;
39			foreach my $h_key (keys %{$value}) {
40			my $h_val = $value->{$h_key};
41			push @entries, "$h_key: $h_val";
42			}
43			return join " / ", @entries;
44			}
45
46
47			1;
48			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26