File Coverage

blib/lib/Class/MakeMethods/Emulator/Singleton.pm

Criterion	Covered	Total	%
statement	10	11	90.9
branch	3	4	75.0
condition	6	12	50.0
subroutine	3	3	100.0
pod			n/a
total	22	30	73.3

package Class::MakeMethods::Emulator::Singleton;

use strict;
require Class::MakeMethods::Emulator;

my $emulation_target = 'Class::Singleton';

sub import {
  my $mm_class = shift;
  if ( scalar @_ and $_[0] =~ /^-take_namespace/ and shift) {
    Class::MakeMethods::Emulator::namespace_capture(__PACKAGE__, $emulation_target);
  } elsif ( scalar @_ and $_[0] =~ /^-release_namespace/ and shift) {
    Class::MakeMethods::Emulator::namespace_release(__PACKAGE__, $emulation_target);
  }
  # The fallback should really be to NEXT::import.
  $mm_class->SUPER::import( @_ );
}

########################################################################

use Class::MakeMethods (
  'Template::Hash:new --with_values' => '_new_instance',
  'Template::ClassVar:instance --get_init' => [ 'instance',
			{new_method=>'_new_instance', variable=>'_instance'} ]
);

########################################################################

1;

__END__