File Coverage

blib/lib/IO/Info.pm

Criterion	Covered	Total	%
statement	11	20	55.0
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	15	26	57.6

package IO::Info;

use 5.026001;
use strict;
use warnings;
use Data::Dumper;


sub new {
    my ($class, @items) = @_;
    my $self = {};

    for my $rec (@items){
      my ($key, $value);
      while (($key, $value) = each %{$rec}){
         $self->{$key} = $value
      }
    }


    bless $self, $class;

    return $self;
}


1;
__END__