mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 00:45:43 -04:00
12 lines
169 B
Perl
12 lines
169 B
Perl
use Data::Dumper;
|
|
|
|
no warnings 'void';
|
|
sub {
|
|
my( $said ) = @_;
|
|
|
|
print Dumper($said);
|
|
return "FOO";
|
|
};
|
|
|
|
__DATA__
|
|
Prints the full said object out, used for debugging
|