File Coverage

blib/lib/App/Tangerine/Metadata.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	2	0.0
condition			n/a
subroutine	4	13	30.7
pod	0	7	0.0
total	16	46	34.7

package App::Tangerine::Metadata;
$App::Tangerine::Metadata::VERSION = '0.21';
use strict;
use warnings;
use overload
    '""' => sub {
        no warnings 'uninitialized';
        return $_[0]->type."\0".$_[0]->name."\0".$_[0]->version."\0".$_[0]->file
    },
    'cmp' => sub {
        my ($self, $other) = @_;
        return "$self" cmp "$other"
    };


sub new {
    my $class = shift;
    my %args = @_;
    bless { %args }, $class
}

sub accessor {
    $_[1]->{$_[0]} = $_[2] ? $_[2] : $_[1]->{$_[0]}
}

sub name { accessor(name => @_) }
sub file { accessor(file => @_) }
sub type { accessor(type => @_) }
sub line { accessor(line => @_) }
sub version { accessor(version => @_) }

1;

__END__