File Coverage

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

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	4	50.0
condition	3	5	60.0
subroutine	9	9	100.0
pod	2	2	100.0
total	43	47	91.4

use 5.006;
use strict;
use warnings;

package Metabase::Resource::perl::commit;
our $VERSION = '0.024'; # VERSION

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;
}

# =method full_url
#
#   my $url = $self->full_url($host);
#
# Returns an ordinary HTTP URL to the resource.  If C<$host> is not
# given, it defaults to the official master Perl repository at
# L.
#
# =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
#
# =head1 SYNOPSIS
#
#   my $resource = Metabase::Resource->new(
#     'perl:///commit/8c576062',
#   );
#
#   my $resource_meta = $resource->metadata;
#   my $typemap       = $resource->metadata_types;
#   my $url = $self->full_url;
#
# =head1 DESCRIPTION
#
# Generates resource metadata for resources of the scheme 'perl:///commit'.
#
#   my $resource = Metabase::Resource->new(
#     'perl:///commit/8c576062',
#   );
#
# For the example above, the resource metadata structure would contain the
# following elements:
#
#   scheme       => perl
#   type         => commit
#   sha1         => 8c576062
#
# =head1 BUGS
#
# Please report any bugs or feature using the CPAN Request Tracker.
# Bugs can be submitted through the web interface at
# L
#
# When submitting a bug or request, please include a test-file or a patch to an
# existing test-file that illustrates the bug or desired feature.
#
# =cut

1;

# ABSTRACT: class for Metabase resources about perl commits

__END__