File Coverage

lib/CPAN/Source/Package.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package CPAN::Source::Package;
use warnings;
use strict;
use base qw(Class::Accessor::Fast::XS);
__PACKAGE__->mk_accessors(qw(
    package
    version
    path
    dist
));

sub fetch_pm {
    my $self = shift;
    my $path = $self->package;
    $path =~ s{::}{/}g;
    $path = 'lib/' . $path . '.pm';
    return $self->dist->fetch_source_file( $path );
}

sub data {
    my $self = shift;
    my @attrs = $self->meta->get_all_attributes;
    my $data = {  };
    for my $attr ( @attrs ) {
        next if $attr->name =~ /^_/; # skip private attribute
        $data->{ $attr->name } = $attr->get_value( $self );
    }
    return $data;
}

1;