| line |
true |
false |
branch |
|
45
|
0 |
0 |
if ($failed eq 'fatalsToDialog') { } |
|
|
0 |
0 |
elsif ($failed eq 'warningsToDialog') { } |
|
|
0 |
0 |
elsif ($failed eq 'immediateWarnings') { } |
|
|
0 |
0 |
elsif ($failed eq 'useTkDialog') { } |
|
|
0 |
0 |
elsif ($failed eq 'tkDeathsNonFatal') { } |
|
59
|
0 |
4 |
if ($Tk::Carp::OLDDIE) |
|
61
|
0 |
0 |
if ($@) |
|
68
|
0 |
4 |
if $^S and $diehandler |
|
70
|
2 |
2 |
if ($Tk::Carp::FatalsToDialog or not $diehandler) |
|
88
|
0 |
0 |
if (Tk::Exists($w)) |
|
90
|
0 |
0 |
if defined $grab |
|
95
|
0 |
0 |
if ($Tk::Carp::FatalsToDialog) |
|
108
|
2 |
0 |
if ($Tk::Carp::OLDWARN) |
|
122
|
0 |
2 |
@new_warns ? : |
|
125
|
0 |
0 |
if ($Tk::Carp::WarningsToDialog or (caller 1)[3] ne 'Tk::Carp::warned') |
|
126
|
0 |
0 |
if ($Tk::Carp::ImmediateWarnings) { } |
|
139
|
0 |
2 |
if $oldwarn_death |
|
153
|
0 |
1 |
if @Tk::Carp::WARNINGS |
|
163
|
0 |
0 |
if ($Tk::Carp::UseTkDialog) { } |
|
166
|
0 |
0 |
unless ($Tk::Carp::MainWindow) |
|
175
|
0 |
0 |
unless ($Tk::Carp::Dialog) |
|
229
|
0 |
0 |
if (defined $$self) |