lib/Carton/Package.pm


1
2
3
4
5
6
7
8
9
10
11
12

package Carton::Package;
use strict;
use Class::Tiny qw( name version pathname );

sub BUILDARGS {
    my($class, @args) = @_;
    return { name => $args[0], version => $args[1], pathname => $args[2] };
}

1;