improved design
|
1 |
package D; |
2 | ||
3 |
use strict; |
|
4 |
use warnings; |
|
5 | ||
6 |
use base 'Exporter'; |
|
7 | ||
8 |
use Data::Dumper 'Dumper'; |
|
9 | ||
10 |
our @EXPORT = ('d'); |
|
11 | ||
12 |
sub d { |
|
13 |
my $data = shift; |
|
14 |
my $dump = Dumper $data; |
|
15 |
print STDERR $dump; |
|
16 |
} |
|
17 | ||
18 |
1; |