The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

HEYTITLE / Git-Open-0.1.9 / lib / Git / Open.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
—
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108

              
use strict;
use warnings;
package Git::Open;
use Moose;
use Git::Open::Util;
use Moose::Util::TypeConstraints;
with 'MooseX::Getopt::Usage';
our $VERSION = '0.1.9'; # VERSION: generated by DZP::OurPkgVersion
subtype 'MaybeStr'
    => as 'Str'
    => where { defined $_ };
MooseX::Getopt::OptionTypeMap->add_option_type_to_map(
    'MaybeStr' => ':s'
);
has compare => (
    is => 'ro',
    isa => 'MaybeStr',
    documentation => 'To open compare view, ex: --compare master-develop'
);
has 'branch' => (
    is => 'ro',
    isa => 'MaybeStr',
    documentation => 'To open branch view: --branch develop'
);
has generator => (
    is => 'ro',
    metaclass => 'NoGetopt',
    isa => 'Git::Open::Util',
    default => sub {
        return Git::Open::Util->new();
    },
    handles => {
        url => 'generate_url'
    }
);
# ABSTRACT: The totally cool way to open repository page, sometime it's hard to remember and open via browser manually.
sub run {
    my $self = shift;
    my $url = $self->get_url();
    system("git web--browse $url");
}
sub get_url {
    my $self = shift;
    my @opts = qw( compare branch );
    my $args;
    foreach my $opt ( @opts ) {
        my $value = $self->meta->get_attribute($opt)->get_value($self);
        $args->{$opt} = $value if defined $value;
    }
    return $self->url( $args );
};
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Git::Open - The totally cool way to open repository page, sometime it's hard to remember and open via browser manually.
=head1 VERSION
version 0.1.9
=head1 USAGE
    git open # it will open homepage of your repository
    git open --compare # it will open compare page
    git open --compare master-develop # Open compare page betwee master and develop
    git open --branch master # Open master branch's page
    git open --branch # Open current branch's page
=head1 AUTHOR
Pattarawat Chormai <pat.chormai@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Pattarawat Chormai.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut