mdap/lib/MDAP.pm

package MDAP;
use Exporter 'import';
our @EXPORT = qw/
once
dump
$debug
/;

use strict;
use warnings;

use Data::Dump qw/dump/;

use Module::Pluggable search_path => 'MDAP', sub_name => 'plugins', require => 1;
my @plugins = __PACKAGE__->plugins;
warn "## found plugins: ",dump( @plugins );

our $debug = 0;

=head1 NAME

MDAP - common stuff

=head1 FUNCTIONS

=head2 once

  once("this message will be reported just once");

=cut

our $once;

sub once {
        my $m = join('', @_);
        $once->{$m}++;
        print "$m\n" if ($once->{$m} == 1);
}

sub DESTROY {
        warn "all messages: ",dump( $once );
}

1;
1	package MDAP;
2	use Exporter 'import';
3	our @EXPORT = qw/
4	once
5	dump
6	$debug
7	/;
8
9	use strict;
10	use warnings;
11
12	use Data::Dump qw/dump/;
13
14	use Module::Pluggable search_path => 'MDAP', sub_name => 'plugins', require => 1;
15	my @plugins = __PACKAGE__->plugins;
16	warn "## found plugins: ",dump( @plugins );
17
18	our $debug = 0;
19
20	=head1 NAME
21
22	MDAP - common stuff
23
24	=head1 FUNCTIONS
25
26	=head2 once
27
28	once("this message will be reported just once");
29
30	=cut
31
32	our $once;
33
34	sub once {
35	my $m = join('', @_);
36	$once->{$m}++;
37	print "$m\n" if ($once->{$m} == 1);
38	}
39
40	sub DESTROY {
41	warn "all messages: ",dump( $once );
42	}
43
44	1;