#!/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__

=pod

=encoding UTF-8

=head1 NAME

git-open - wrapper for Git::Open

=head1 VERSION

version 0.001

=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
