diff options
| author | fukachan <fukachan> | 2001-10-27 03:37:05 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-27 03:37:05 +0000 |
| commit | 5547631d938cf2567d4973ed16d7f41bed971d89 (patch) | |
| tree | faf14739db29eced427fb62c325c7acf152c5e53 | |
| parent | d223ac7c505584ac8f1da4f3d0cf5c144d4b56ce (diff) | |
| download | fml8-5547631d938cf2567d4973ed16d7f41bed971d89.tar.gz fml8-5547631d938cf2567d4973ed16d7f41bed971d89.tar.bz2 fml8-5547631d938cf2567d4973ed16d7f41bed971d89.zip | |
not used
| -rw-r--r-- | fml/lib/FML/Debug.pm | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/fml/lib/FML/Debug.pm b/fml/lib/FML/Debug.pm deleted file mode 100644 index 31582c49..00000000 --- a/fml/lib/FML/Debug.pm +++ /dev/null @@ -1,55 +0,0 @@ -#-*- perl -*- -# -# Copyright (C) 2000-2001 Ken'ichi Fukamachi -# All rights reserved. -# -# $FML: Debug.pm,v 1.4 2001/04/03 09:45:40 fukachan Exp $ -# - -package FML::Debug; - -=head1 NAME - -FML::Debug -- debug utilities - -=head1 SYNOPSIS - - use FML::Debug; - FML::Debug->show_structure( $variable ); - -=head1 METHODS - -=head2 C<show_structure($x)> - -It shows the data structure for the given variable C<$x>. -It is just a wrapper for L<Data::Dumper>. - -=cut - - -# Descriptions: constructor -# Arguments: $self $args -# Side Effects: none -# Return Value: none -sub new -{ - my ($self, $args) = @_; - my ($type) = ref($self) || $self; - my $me = {}; - bless $me, $self, -} - - -# Descriptions: dump the target data structure -# Arguments: $self $target -# Side Effects: none -# Return Value: none -sub show_structure -{ - my ($self, $target) = @_; - use Data::Dumper; - print Dumper( $target ); -} - - -1; |