File Coverage

blib/lib/Test/Mock/Simple.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	13	16	81.2
condition	3	6	50.0
subroutine	8	8	100.0
pod	2	3	66.6
total	68	75	90.6

package Test::Mock::Simple;

use 5.008008;
use strict;
use warnings;

our $VERSION = '0.081';

my $allow_new_methods = 0;

sub new {
  my $package = shift;
  my $class = ref($package) || $package;

  my $self = {@_};
  bless($self, $class);

  $self->initialize;

  return $self;
}

sub initialize {
  my $self = shift;

  if (!$self->{module}) {
    require Carp;
    Carp::croak("No module name provided to mock");
  }

  my $module = $self->{module} . '.pm';
  $module =~ s/::/\//g;
  require $module;

  $allow_new_methods = 1 if $self->{allow_new_methods};
}

sub add {
  my $self = shift;
  my $name = shift;
  my $sub = shift;

  return if $ENV{TEST_MOCK_SIMPLE_DISABLE};

  if (!$name || !$sub) {
    require Carp;
    Carp::croak("No method name provided to mock") unless $name;
    Carp::croak("No sub ref provided to mock") unless $sub;
  }

  if (!$allow_new_methods) {
      die("Module (" . $self->{module} . ") does not have a method named '$name'\n")
        unless $self->{module}->can($name);
  }

  {
    no strict;
    no warnings;

    *{$self->{module} . '::' . $name} = $sub;
  }
}

1;
__END__