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	dpavlin	49	package MDAP;
2	dpavlin	58	use Exporter 'import';
3			our @EXPORT = qw/
4			once
5			dump
6			/;
7	dpavlin	49
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	dpavlin	58	=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	dpavlin	49	1;