File Coverage

blib/lib/Git/Wrapper/Plus/Util.pm

Criterion	Covered	Total	%
statement	36	40	90.0
branch	6	10	60.0
condition			n/a
subroutine	10	10	100.0
pod	1	1	100.0
total	53	61	86.8

use 5.008;    # utf8
use strict;
use warnings;
use utf8;

package Git::Wrapper::Plus::Util;
$Git::Wrapper::Plus::Util::VERSION = '0.004010';
# ABSTRACT: Misc plumbing tools for Git::Wrapper::Plus

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

use Sub::Exporter::Progressive -setup => {
  exports => [qw( exit_status_handler )],
  groups  => {
    default => [qw( exit_status_handler )],
  },
};

use Try::Tiny qw( try catch );
use Scalar::Util qw(blessed);

































sub exit_status_handler {
  my ( $callback, $status_map ) = @_;
  my $return = 1;
  try {
    $callback->();
  }
  catch {
    ## no critic (ErrorHandling::RequireUseOfExceptions)
    undef $return;
    if ( not ref $_ ) {
      die $_;
    }
    if ( not blessed $_ ) {
      die $_;
    }
    if ( not $_->isa('Git::Wrapper::Exception') ) {
      die $_;
    }
    for my $status ( sort keys %{$status_map} ) {
      if ( $status == $_->status ) {
        $return = $status_map->{$status}->($_);
        return;
      }
    }
    die $_;
  };
  return 1 if $return;
  return;
}

1;

__END__