File Coverage

blib/lib/Metabase/Resource/perl/commit.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	4	50.0
condition	3	5	60.0
subroutine	9	9	100.0
pod	2	2	100.0
total	42	46	91.3

use 5.006;
use strict;
use warnings;

package Metabase::Resource::perl::commit;

our $VERSION = '0.025';

use Carp ();

use Metabase::Resource::perl;
our @ISA = qw/Metabase::Resource::perl/;

sub _metadata_types {
    return { sha1 => '//str', };
}

sub _init {
    my ($self) = @_;

    my ($string) = $self =~ m{\Aperl:///commit/(.+)\z};
    Carp::confess("could not determine commit from '$self'\n")
      unless defined $string && length $string;

    my $sha1 = $1;
    Carp::confess("illegal commit hash")
      unless $sha1 =~ m/^[a-f0-9]+$/;

    $self->_add( 'sha1' => $sha1 );

    return $self;
}

#pod =method full_url
#pod
#pod   my $url = $self->full_url($host);
#pod
#pod Returns an ordinary HTTP URL to the resource.  If C<$host> is not
#pod given, it defaults to the official master Perl repository at
#pod L.
#pod
#pod =cut

sub full_url {
    my ( $self, $host ) = @_;
    $host ||= 'perl5.git.perl.org';
    return "http://${host}/perl.git/" . $self->sha1;
}

# 'commit' validates during _init, really
sub validate { 1 }

#pod =pod
#pod
#pod =head1 SYNOPSIS
#pod
#pod   my $resource = Metabase::Resource->new(
#pod     'perl:///commit/8c576062',
#pod   );
#pod
#pod   my $resource_meta = $resource->metadata;
#pod   my $typemap       = $resource->metadata_types;
#pod   my $url = $self->full_url;
#pod
#pod =head1 DESCRIPTION
#pod
#pod Generates resource metadata for resources of the scheme 'perl:///commit'.
#pod
#pod   my $resource = Metabase::Resource->new(
#pod     'perl:///commit/8c576062',
#pod   );
#pod
#pod For the example above, the resource metadata structure would contain the
#pod following elements:
#pod
#pod   scheme       => perl
#pod   type         => commit
#pod   sha1         => 8c576062
#pod
#pod =head1 BUGS
#pod
#pod Please report any bugs or feature using the CPAN Request Tracker.
#pod Bugs can be submitted through the web interface at
#pod L
#pod
#pod When submitting a bug or request, please include a test-file or a patch to an
#pod existing test-file that illustrates the bug or desired feature.
#pod
#pod =cut

1;

# ABSTRACT: class for Metabase resources about perl commits

__END__