File Coverage

blib/lib/Log/Accounting.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	26	46.1

package Log::Accounting;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %MMAP);

require Exporter;
require AutoLoader;

@ISA = qw(Exporter AutoLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(

);
$VERSION = '0.3';

%MMAP = (
  "Sendmail" => "Log::Accounting::Sendmail",
);


sub new {
  shift;
  my $service = shift;
  my $impl = $MMAP{$service} || do {
    $service =~ s/\W+//;
    "Log::Accounting::$service";
  };
  no strict 'refs';
  unless (exists ${"$impl\::"}{"VERSION"}) {
    eval "require $impl";
  }
  return $impl->new(@_);
}

1;
__END__