view release on metacpan or  search on metacpan

lib/Git/TagVersion.pm  view on Meta::CPAN

  is => 'ro', isa => 'Git::Wrapper', lazy => 1,
  default => sub {
    my $self = shift;
    return Git::Wrapper->new( $self->root );
  },
);

has 'version_regex' => ( is => 'ro', isa => 'Str', default => '^v(\d.+)$' );

has 'versions' => (
  is => 'ro', isa => 'ArrayRef[Git::TagVersion::Version]', lazy => 1,
  default => sub {
    my $self = shift;
    my @versions;

    if( $self->fetch ) {
      $self->repo->fetch;
    }

    my $regex = $self->version_regex;
    foreach my $tag ( $self->repo->tag ) {

lib/Git/TagVersion/Version.pm  view on Meta::CPAN

has 'seperator' => ( is => 'ro', isa => 'Str', default => '.' );

has 'tag' => ( is => 'rw', isa => 'Maybe[Str]' );

has 'prev' => ( is => 'rw', isa => 'Maybe[Git::TagVersion::Version]' );

has 'repo' => ( is => 'ro', isa => 'Git::Wrapper', required => 1 );

has 'log' => (
  is => 'ro', isa => 'ArrayRef[Git::Wrapper::Log]', lazy => 1,
  default => sub {
    my $self = shift;
    my @log;

    my $revisions;
    if( defined $self->prev ) {
      $revisions = $self->prev->tag.'...'.$self->tag;
    } else {
      $revisions = $self->tag;
    }