Changeset 167044b for perlwrap.pm
- Timestamp:
- Aug 20, 2008, 2:16:43 AM (17 years ago)
- Branches:
- master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- aef51f8
- Parents:
- 5987370
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlwrap.pm
r0f9eca7 r167044b 603 603 my $self = shift; 604 604 my @args = @_; 605 return map {$_->(@args)} @$self; 605 return map {$self->_run($_,@args)} @$self; 606 } 607 608 sub _run { 609 my $self = shift; 610 my $fn = shift; 611 my @args = @_; 612 no strict 'refs'; 613 return $fn->(@args); 606 614 } 607 615 … … 615 623 my $self = shift; 616 624 my $func = shift; 617 die("Not a coderef!") unless ref($func) eq 'CODE'; 625 die("Not a coderef!") unless ref($func) eq 'CODE' || !ref($func); 626 return if grep {$_ eq $func} @$self; 618 627 push @$self, $func; 619 628 }
Note: See TracChangeset
for help on using the changeset viewer.