Context Navigation

Dummy.pm @ 2121

Visit:

Last change on this file since 2121 was 1071, checked in by nanardon, 12 years ago
rename options() to config() to clarify its role
Property svn:keywords set to `Id Rev`
File size: 817 bytes

Rev	Line
[2]	1	package LATMOS::Accounts::Bases::Dummy;
	2
	3	use strict;
	4	use warnings;
	5	use base qw(LATMOS::Accounts::Bases);
	6
[1023]	7	=head1 NAME
	8
	9	LATMOS::Accounts::Bases::Dummy - Dummy base for testing purpose
	10
	11	=head1 DESCRIPTION
	12
	13	This base does nothing except returning true, it can be used to test process
	14
	15	=cut
	16
[3]	17	our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
	18
[2]	19	sub new {
[1071]	20	my ($class, %config) = @_;
[2]	21	bless {}, $class;
	22	}
	23
	24	1;
[1023]	25
	26	__END__
	27
	28	=head1 SEE ALSO
	29
	30	L<LATMOS::Accounts::Bases>
	31
	32	=head1 AUTHOR
	33
	34	Olivier Thauvin, E<lt>olivier.thauvin@latmos.ipsl.frE<gt>
	35
	36	=head1 COPYRIGHT AND LICENSE
	37
	38	Copyright (C) 2012 CNRS SA/CETP/LATMOS
	39
	40	This library is free software; you can redistribute it and/or modify
	41	it under the same terms as Perl itself, either Perl version 5.10.0 or,
	42	at your option, any later version of Perl 5 you may have available.
	43
	44	=cut

Note: See TracBrowser for help on using the repository browser.