—

              
#!/usr/bin/perl
use Git::Open;
use Getopt::Mini 0.02;   # parses the @ARGV into %ARGV
# PODNAME: git-open
# ABSTRACT: wrapper for Git::Open
my $opts = {};
if( (exists $ARGV{'compare'}) || (exists $ARGV{'c'})  )  {
    my $compare = {
        diff => $ARGV{'compare'} || $ARGV{'c'}
    };
    $opts->{compare} = $compare;
}
my $url = Git::Open::url($opts);
system("git web--browse $url");
__END__
HideShow 25 lines of Pod
=pod
=encoding UTF-8
=head1 NAME
git-open - wrapper for Git::Open
=head1 VERSION
version 0.1.1
=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