mdap/lib/MDAP.pm

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

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 );

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