File Coverage

blib/lib/Group/Git/Repo.pm

Criterion	Covered	Total	%
statement	18	25	72.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	6	7	85.7
pod			n/a
total	24	37	64.8

package Group::Git::Repo;

# Created on: 2013-05-05 19:07:36
# Create by:  Ivan Wills
# $Id$
# $Revision$, $HeadURL$, $Date$
# $Revision$, $Source$, $Date$

use Moo;
use strict;
use warnings;
use version;
use Types::Standard qw/Str HashRef/;
use Type::Utils;

our $VERSION = version->new('0.7.5');

extends 'Group::Git';

has name => (
    is  => 'rw',
    isa => class_type { class => 'Path::Tiny' },
);
has url => (
    is  => 'rw',
    isa => Str,
);
has git => (
    is  => 'rw',
    isa => Str,
);
has tags => (
    is      => 'rw',
    isa     => HashRef,
    default => sub {{}},
);

has mech => (
    is      => 'rw',
    lazy    => 1,
    builder => '_mech',
);

sub _mech {
    my ($self) = @_;
    my $mech;

    if ($self->conf->{cache_dir} && eval { require WWW::Mechanize::Cached }) {
        $mech = WWW::Mechanize::Cached->new(
            cache => CHI->new(
                driver => 'File',
                root_dir => $self->conf->{cache_dir},
            ),
        );
    }
    else {
        $mech  = WWW::Mechanize->new;
    }

    return $mech;
}

1;

__END__

=head1 NAME

Group::Git::Repo - Git repository details object.

=head1 VERSION

This documentation refers to Group::Git::Repo version 0.7.5.


=head1 SYNOPSIS

   use Group::Git::Repo;

   # create a new repository object
   my $ggr = Group::Git::Repo->new(
       name => 'some-repo',
       url  => 'http://example.com/some-repo/',
       git  => '[e-mail]/some-repo.git',
   );

=head1 DESCRIPTION

C<Group::Git::Repo> stores the basic information about a git repository for
other L<Group::Git> modules to use. It does nothing by it's self.

=head1 SUBROUTINES/METHODS

=head1 DIAGNOSTICS

=head1 CONFIGURATION AND ENVIRONMENT

=head1 DEPENDENCIES

=head1 INCOMPATIBILITIES

=head1 BUGS AND LIMITATIONS

There are no known bugs in this module.

Please report problems to Ivan Wills ([e-mail]).

Patches are welcome.

=head1 AUTHOR

Ivan Wills - ([e-mail])

=head1 LICENSE AND COPYRIGHT

Copyright (c) 2013 Ivan Wills (14 Mullion Close, Hornsby Heights, NSW Australia 2077).
All rights reserved.

This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlartistic>.  This program is
distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
PARTICULAR PURPOSE.

=cut