view release on metacpan or  search on metacpan

lib/Gtk2/Ex/FileLocator/FileChooser.pm  view on Meta::CPAN

}

sub Debug {
   my ( $this, @values ) = @_;
   return unless $DEBUG;
   printf "# %s %s\n", &caller_subroutine, @values
     ? join " ", map { defined $_ ? $_ : "" } @values
     : "";
}

sub caller_subroutine { ( caller(2) )[3] || "" }
1;
__END__