File Coverage

blib/lib/Test/MockObject/Universal.pm

Criterion	Covered	Total	%
statement	7	16	43.7
branch			n/a
condition	0	3	0.0
subroutine	3	7	42.8
pod	3	3	100.0
total	13	29	44.8

package Test::MockObject::Universal;
{
  $Test::MockObject::Universal::VERSION = '0.11';
}
BEGIN {
  $Test::MockObject::Universal::AUTHORITY = 'cpan:TEX';
}
# ABSTRACT: a truly universal mock object

use strict;
use warnings;

sub new {
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = {};
    bless $self, $class;
    return $self;
}

# DGR: the whole purpose of this class is to provide autoloading ...
## no critic (ProhibitAutoloading)
sub AUTOLOAD {
    my $self = shift;

    return ();
}
## use critic

sub isa {
    return 1;
}

sub can {
    return 1;
}

1;

__END__

=pod

=encoding utf-8

=head1 NAME

Test::MockObject::Universal - a truly universal mock object

=head1 SYNOPSIS

	my $Dummy = Test::MockObject::Universal::->new();
	$Dummy->can('whatever you want');

=head1 DESCRIPTION

This class provides a very simple mock object that does not inherit from Test::MockObject.

The goal of this module is to be as simple and fast as possible.

If you want more functionality you should probably look at Test::MockObject.

=head1 NAME

Test::MockObject::Universal - A universal MockObject

=head1 METHODS

=head2 isa

Always returns true.

=head2 can

Always returns true.

=head2 AUTOLOAD

AUTOLOAD is provided to always return a empty list.

=head2 new

Constructor. Takes no arguments.

=cut

=head1 AUTHOR

Dominik Schulz <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Dominik Schulz.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut