diff options
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/Zinc/TraceUtils.pm | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/Perl/Zinc/TraceUtils.pm b/Perl/Zinc/TraceUtils.pm index 5a9536f..d0c5c04 100644 --- a/Perl/Zinc/TraceUtils.pm +++ b/Perl/Zinc/TraceUtils.pm @@ -23,39 +23,6 @@ sub printList { print &List (@_); } -sub Item { - my ($value) = @_; - my $ref = ref($value); -# print "VALUE=$value REF=$ref\n"; - if ($ref eq 'ARRAY') { - return Array ( @{$value} ); - } elsif ($ref eq 'CODE') { - return "{CODE}"; - } elsif ($ref eq 'Tk::Photo') { -# print " **** $value ***** "; - return "Tk::Photo(\"". scalar $value->cget('-file') . "\")"; - } elsif ($ref eq 'Tk::Font') { - return "'$value'"; - } elsif ($ref eq '') { # scalar - print "value: $value\n"; - if (defined $value) { - print "defined value: $value\n"; - { no strict; - if ($value eq eval ($value)) { - return $value; - } else { - return "'$value'"; - } - use strict; - } - } else { - return "_undef"; - } - } else { # some class instance - return $value; - } - -} # end Item ### to print something sub Item { |