File Coverage

blib/lib/Class/Plain/Base.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	2	100.0
condition	1	3	33.3
subroutine	3	3	100.0
pod	1	1	100.0
total	17	19	89.4

package Class::Plain::Base;

use strict;
use warnings;

sub new {
  my $class = shift;

  my $self = ref $_[0] ? {%{$_[0]}} : {@_};

  bless $self, ref $class || $class;
}

1;

=encoding UTF-8

=head1 Name

C - Provide Constructor

=head1 Description

This module provides a constructor C.

=head1 Class Methods

=head2 new

  my $object = Class::Plain::Base->new(%args);

  my $object = Class::Plain::Base->new(\%args);

Create a new object. The implementation is the following.

  sub new {
    my $class = shift;

    my $self = ref $_[0] ? {%{$_[0]}} : {@_};

    bless $self, ref $class || $class;
  }