File Coverage

blib/lib/Types/Git.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Types::Git;
$Types::Git::VERSION = '0.02';
=head1 NAME

Types::Git - Type::Tiny types for git stuff.

=head1 SYNOPSIS

  package Foo;

  use Types::Git -types;

  use Moo;
  use strictures 1;
  use namespace::clean;

  has ref => (
    is  => 'ro',
    isa => GitRef,
  );

=head1 DESCRIPTION

This module provides several L types for some of
git's data types.

=cut

use Type::Library -base;
use Type::Utils -all;
use Types::Common::String -types;
use List::MoreUtils qw( any );

use strictures 1;
use namespace::clean;

=head1 TYPES

=head2 GitSHA

A SHA1 hex, must be 40 characters or less long and contain
only hex characters.

=cut

my $GitSHA = declare 'GitSHA',
    as NonEmptySimpleStr,
    where {
        length($_) <= 40 and
        $_ =~ m{^[a-f0-9]+$}
    };

=head2 GitLooseRef

Just like L except one-level refs (those without any forward slashes)
are allowed.  This is useful for validating a branch or tag name.

=cut

my $GitLooseRef = declare 'GitLooseRef',
    as NonEmptySimpleStr,
    where {
        # 1. They can include slash / for hierarchical (directory) grouping,
        #    but no slash-separated component can begin with a dot . or end
        #    with the sequence .lock.
        ( ! any { $_ =~ m{^\.} or $_ =~ m{\.lock$} } split(/\//, $_) ) and
        # 3. They cannot have two consecutive dots .. anywhere.
        $_ !~ m{\.\.} and
        # 4. They cannot have ASCII control characters (i.e. bytes whose
        #    values are lower than \040, or \177 DEL), space, tilde ~, caret
        #    ^, or colon : anywhere.
        $_ !~ m{[\000-\040\177 ~^:]} and
        # 5. They cannot have question-mark ?, asterisk *, or open bracket [
        #    anywhere.
        $_ !~ m{[?*[]} and
        # 6. They cannot begin or end with a slash / or contain multiple
        #    consecutive slashes.
        $_ !~ m{^/} and $_ !~ m{/$} and $_ !~ m{//} and
        # 7. They cannot end with a dot ..
        $_ !~ m{\.$} and
        # 8. They cannot contain a sequence @{.
        $_ !~ m{\@\{} and
        # 9. They cannot be the single character @.
        $_ ne '@' and
        # 10. They cannot contain a \.
        $_ !~ m{\\}
    };

=head2 GitRef

Matches a ref against the same rules that
L uses.

=cut

my $GitRef = declare 'GitRef',
    as $GitLooseRef,
    where {
        # 2. They must contain at least one /.
        $_ =~ m{/}
    };

=head2 GitBranchRef

A L which begins with C and ends with a
L.

=cut

declare 'GitBranchRef',
    as $GitRef,
    where { $_ =~ m{^refs/heads/} };

=head2 GitTagRef

A L which begins with C and ends with a
L.

=cut

declare 'GitTagRef',
    as $GitRef,
    where { $_ =~ m{^refs/tags/} };

=head2 GitObject

This is a union type of L and L.  In the future
this type may be expanded to include other types as more of
L is incorporated
with this module.

=cut

my $GitObject = declare 'GitObject',
    as $GitSHA | $GitLooseRef;

=head2 GitRevision

Currenlty this is an alias for L but may be extended in
the future to include other types as more of
L is incorporated
with this module.

This type is meant to be the same as L except with extended
rules for date ranges and such.

=cut

my $GitRevision = declare 'GitRevision',
    as $GitObject;

1;
__END__