view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
        );
}
 
my @exts = @{$self->{extensions}};
unless ( @exts ) {
        @exts = $self->{admin}->load_all_extensions;
}
 
my %seen;
foreach my $obj ( @exts ) {
        while (my ($method, $glob) = each %{ref($obj) . '::'}) {
                next unless $obj->can($method);
                next if $method =~ /^_/;
                next if $method eq uc($method);
                $seen{$method}++;
        }
}
 
my $who = $self->_caller;
foreach my $name ( sort keys %seen ) {
        *{"${who}::$name"} = sub {

inc/Test/Builder.pm  view on Meta::CPAN

90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
    return $self;
}
 
#line 158
 
our $Level;
 
sub reset {    ## no critic (Subroutines::ProhibitBuiltinHomonyms)
    my($self) = @_;
 
    # We leave this a global because it has to be localized and localizing
    # hash keys is just asking for pain.  Also, it was documented.
    $Level = 1;
 
    $self->{Have_Plan}    = 0;
    $self->{No_Plan}      = 0;
    $self->{Have_Output_Plan} = 0;
 
    $self->{Original_Pid} = $$;
 
    share( $self->{Curr_Test} );

inc/Test/Builder.pm  view on Meta::CPAN

825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
    return wantarray ? ( $return, $error ) : $return;
}
 
#line 1191
 
sub is_fh {
    my $self     = shift;
    my $maybe_fh = shift;
    return 0 unless defined $maybe_fh;
 
    return 1 if ref $maybe_fh  eq 'GLOB';    # its a glob ref
    return 1 if ref \$maybe_fh eq 'GLOB';    # its a glob
 
    return eval { $maybe_fh->isa("IO::Handle") } ||
           # 5.5.4's tied() and can() doesn't like getting undef
           eval { ( tied($maybe_fh) || '' )->can('TIEHANDLE') };
}
 
#line 1235
 
sub level {
    my( $self, $level ) = @_;