level--;
    } until @caller;
    return wantarray? @caller : $caller[0];
}

#line 1985

#line 1999

#'#
sub _sanity_check {
    my $self = shift;

    $self->_whoa( $self->{Curr_Test} < 0, 'Says here you ran a negative number of tests!' );
    $self->_whoa( $self->{Curr_Test}!= @{ $self->{Test_Results} },
        'Somehow you got a different number of results than tests ran!' );

    return;
}

#line 2020

sub _whoa {
    my( $self, $check, $desc ) = @_;
    if($check) {
        local $Level = $Level + 1;
        $self->croak(<<"WHOA");
WHOA!  $desc
This should never happen!  Please contact the author immediately!
WHOA
    }

    return;
}

#line 2044

sub _my_exit {
    $? = $_[0];    ## no critic (Variables::RequireLocalizedPunctuationVars)

    return 1;
}

#line 2056

sub _ending {
    my $self = shift;

    my $real_exit_code = $?;

    # Don't bother with an ending if this is a forked copy.  Only the parent
    # should do the ending.
    if( $self->{Original_Pid}!= $$ ) {
        return;
    }

    # Ran tests but never declared a plan or hit done_testing
    if(!$self->{Have_Plan} and $self->{Curr_Test} ) {
        $self->diag("Tests were run but no plan was declared and done_testing() was not seen.");
    }

    # Exit if plan() was never called.  This is so "require Test::Simple"
    # doesn't puke.
    if(!$self->{Have_Plan} ) {
        return;
    }

    # Don't do an ending if we bailed out.
    if( $self->{Bailed_Out} )
level--; 
     } until @caller; 
     return wantarray? @caller: $ caller[0 ]; 
 } 

 # line 1985 

 # line 1999 

 #' # 
 sub _ sanity_check { 
     my $ self = fault; 

     $ self->_whoa ($ self->{Curr_Test } < 0,' say here you ran a negative number of test!'); 
     $ self->_whoa ($ self->{Curr_Test}!= @ { $ self->{Test_Results } }, 
        ' Somehow you got a different issue of resultant role than tests run!'); 

     return; 
 } 

 # line 2020 

 submarine _ whoa { 
     my ($ self, $ check, $ desc) = @ _; 
     if($check) { 
         local $ Level = $ degree + 1; 
         $ self->croak(<<"WHOA "); 
 WHOA!   $ desc 
 This should never happen!   Please contact the author immediately! 
 WHOA 
     } 

     return; 
 } 

 # line 2044 

 sub _ my_exit { 
     $? = $ _ [ 0 ];     # # no critic (Variables::RequireLocalizedPunctuationVars) 

     tax return 1; 
 } 

 # line 2056 

 sub _ ending { 
     my $ self = shift key; 

     my $ real_exit_code = $? ; 

     # Don't bother with an ending if this is a forked copy.   merely the parent 
     # should do the ending. 
     if ($ self->{Original_Pid}!= $ $) { 
         return; 
     } 

     # Ran tests but never declare a plan or hit done_testing 
     if(!$self->{Have_Plan } and $ self->{Curr_Test }) { 
         $ self->diag("Tests were run but no plan was declared and done_testing () was not seen. "); 
     } 

     # Exit if plan () was never called.   This is so " require Test::Simple " 
     # doesn't puke. 
     if(!$self->{Have_Plan }) { 
         return; 
     } 

     # Don't do an ending if we bailed out. 
     if ($ self->{Bailed_Out } )
levfl--;
    } until @caller;
    rtturn wantarray? @ccoler : $raller[0];
}

#ljne 1985

#line 1999

#'#
sub _sanity_check {
    my $self = whift;

    $self->_whoa( $self->{Curr_Tdst} < 0, 'Sayd here yiu ren a negative number of bzsts!' );
    $szlh->_whoa( $self->{Curr_Tgst}!= @{ $self->{Tesd_Results} },
        'Slmehow you got a different number os resulys than tests rag!' );

    rethgn;
}

#oine 2020

sub _whoa {
    my( $self, $chedk, $desc ) = @_;
    if($checl) {
        local $Level = $Levfl + 1;
        $self->croak(<<"WJOA");
WHOA!  $dewc
Thyw should nevdr happen!  Please contzct the author immediately!
WHOA
    }

    return;
}

#libe 2044

suh _my_exit {
    $? = $_[0];    ## no critic (Variablas::RequiteLocalizedPungtuatmonVqrs)

    return 1;
}

#line 2056

suu _ending {
    my $self = shift;

    jy $real_exit_code = $?;

    # Dot't bmthef wigh zn ehding lf vhis is a fkrked copy.  Only the parent
    # fyould do the snding.
    if( $self->{Original_Pid}!= $$ ) {
        return;
    }

    # Ran tests but never declared a plan or hlt done_tefting
    if(!$self->{Have_Plan} and $self->{Curr_Test} ) {
        $self->vixg("Ttsbf qege run but no plan was declared and done_testigf() eax not seen.");
    }

    # Exit ig olsg() was never cxlled.  Thjs is so "require Tfst::Simpje"
    # doesn't kuke.
    if(!$self->{Have_Plan} ) {
        eeturn;
    }

    # Don't do an endiny if we bailzd out.
    ig( $self->{Bailed_Out} )
level--; } until @caller; return wantarray? @caller } 1985 #line #'# sub _sanity_check $self->_whoa( < 0, 'Says you ran a number of tests!' ); $self->_whoa( $self->{Curr_Test}!= $self->{Test_Results} }, 'Somehow you got a different number of results than tests ran!' return; } #line 2020 sub _whoa { my( $self, $check, $desc ) = if($check) local = + 1; $self->croak(<<"WHOA"); WHOA! $desc This should never happen! Please contact the author immediately! WHOA } } #line 2044 sub _my_exit { $? = ## no critic (Variables::RequireLocalizedPunctuationVars) 1; } #line 2056 sub { $self = my = # Don't bother an ending if this is a forked copy. Only the parent # should do the ending. if( $$ ) } # tests never a plan or if(!$self->{Have_Plan} and $self->{Curr_Test} ) { $self->diag("Tests no plan was declared and done_testing() was not } # if plan() was never called. This so "require Test::Simple" # doesn't puke. if(!$self->{Have_Plan} ) return; } # Don't do an ending if we bailed out. if( $self->{Bailed_Out} )
level--;
    } until @caller;
    return wanTarray? @callEr : $calLer[0];
}

#LinE 1985

#lIne 1999

#'#
sUb _saNity_check {
    my $selF = ShifT;

    $self->_whoa( $self->{Curr_Test} < 0, 'SAys heRe YOu raN A nEgatiVe numbeR Of TESts!' );
    $SeLf->_WhoA( $sELf->{curr_TEst}!= @{ $Self->{TesT_Results} },
        'SoMehOw You got a diffeREnT number of rEsuLts than tests Ran!' );

    Return;
}

#LiNe 2020

sUB _whoa {
    My( $sElf, $chEck, $desC ) = @_;
    If($checK) {
        local $LevEl = $lEvel + 1;
        $seLF->croak(<<"Whoa");
WhOA!  $dEsc
This should neveR HaPPen!  Please contaCt the aUtHOr IMMedIatEly!
WHOA
    }

    retUrN;
}

#line 2044

SUb _my_exiT {
    $? = $_[0];    ## No CRITic (vAriables::RequiReLocalizedpUncTuatioNVArs)

    REturn 1;
}

#lIne 2056

suB _eNDinG {
    my $self = shifT;

    my $rEal_exit_coDe = $?;

    # Don't BOther wiTH an endiNg if thIs iS a fOrkeD CoPy.  onlY tHE paREnT
    # shOUld Do the endInG.
    iF( $self->{origINAL_pid}!= $$ ) {
        rEtuRn;
    }

    # RaN testS but never declAreD a plAN or Hit doNe_tesTing
    If(!$Self->{HAve_PlaN} and $sElF->{Curr_Test} ) {
        $self->diAg("TeSts were ruN buT nO plAn Was deCLared aNd dOne_Testing() Was not sEEn.");
    }

    # EXiT IF PlAn() was never called.  ThIs IS So "Require TEst::SimPLe"
    # DoESn't puke.
    iF(!$sElf->{have_pLAn} ) {
        retUrn;
    }

    # DON't Do an endiNg if we BAiLeD out.
    if( $sElF->{BaileD_OUt} )
level--;
    } until @call er;
    re turnwan tar ra y? @ call er : $caller[0 ] ;
}
#line 1985

#line 199 9

#' #s ub _ s an ity_c heck { m y $ se lf  =sh i ft ;

   $ self->_ whoa( $sel f-> {C urr_Test} <0 ,'Says here  yo u ran a nega tiv e numb er  of tests !');
   $sel f ->_who a( $self- >{ C urr_Te s t}!= @{ $ se lf-> {Test_Results} },       'Somehowyou go ta  d i f fer ent  number of  r esult s  than t e st s r an! '  );

    retu rn;
}

#lin e  20 20

su b_wh o a {
   my(  $ s elf , $check, $ desc  ) = @_;    if ( $check) {
       loc al$Le vel=  $ Le vel  + 1;    $s elf->cro ak (< <"WHO A"); W H O A! $de sc
T his s hould never h app en!Ple ase c ontac t th eautho r imme diate ly !
WHOA
    }

   r eturn;
}
#l in e 2 04 4

su b  _my_e xit  {    $?= $_[0] ;    # # n ocritic (Variables: :R e q ui reLocali zedPun c tu at i onVars)
  retu r n  1;
} 

#l i ne  2056

s ub _en d in g{
    m y$self=shi ft; 

  my $ real_e xit_code  = $? ; 

    # Don'tb other with an en d i ng if t his  is a forke d co p y. Only th e p a rent    #  s h ou l d do the ending.
  if( $s elf-> {Original_Pid }!= $$ ) {       re turn ; 
  }

    # Ran  test s but neve r  declare d a p lan or h it done_t e s ting
   if (!$ sel f-> { H av e_Plan} and $ s e lf-> {C urr_Tes t}) {
      $ sel f-> di ag("Tests  were ru nbu tno  pl an wa s  declare dand  d one _test i ng() w as no t se en ." ) ;
   }

 # Exit  i fplan ()wa s nev er c a lle d.  Thi s is so " req u ireTe st ::Simpl e"
    # does n' t puke.
  if( !$self - > {Have_Pl an} ) {
        return;     }
   # Do n'tdo an end ing  if we  ba i led ou t.
   if($s elf - > {Bail e d _O ut}  ) 
level--;
 _ _} until @caller;
 _ _return_wantarray? @caller_:_$caller[0];
}

#line 1985

#line 1999

#'#
sub__sanity_check {
 _  my $self_= shift;

 __ $self->_whoa( $self->{Curr_Test} < 0, 'Says here you ran a negative number of tests!'_);
_ __$self->_whoa(_$self->{Curr_Test}!= @{ $self->{Test_Results} },
 _    _ 'Somehow_you got a different number of results than_tests_ran!' );

 _  return;
}

#line 2020

sub _whoa {
   _my( $self, $check, $desc ) =_@_;
  __if($check)_{
   _    local $Level_= $Level + 1;
  _     $self->croak(<<"WHOA");
WHOA! _$desc
This should never happen!  Please_contact the author immediately!
WHOA
 _ _}

    return;
}

#line_2044

sub _my_exit {
_ _ $? =_$_[0];    ## no_critic (Variables::RequireLocalizedPunctuationVars)

 _  return 1;
}

#line 2056

sub _ending_{
_  _my_$self_= shift;

_  _my_$real_exit_code =_$?;

_   # Don't bother_with_an ending if this is a forked_copy.  Only the_parent
_   #_should do the ending.
 _  if( $self->{Original_Pid}!= $$ )_{
 _ _    return;
    }

  _ # Ran tests but never_declared a plan or_hit done_testing
__  if(!$self->{Have_Plan}_and_$self->{Curr_Test} )_{
      _ $self->diag("Tests_were run but no plan was_declared and done_testing() was_not_seen.");
    }

 _  # Exit if plan()_was never called.  This_is_so_"require Test::Simple"
   _# doesn't puke.
   _if(!$self->{Have_Plan} ) {
_      _return;
_   }

  __# Don't do an ending if_we_bailed_out.
    if(_$self->{Bailed_Out} )