Re^5: custom attribute? (wrong channel)

I prefer the latter. Seeing the former I would think things like "Why is he using a prototype on an anonymous sub when prototypes are completely ignored on those?", "Will a future version of Perl complain or fail for that since it is useless?", etc. (:

- tye

Comment on Re^5: custom attribute? (wrong channel)

Replies are listed 'Best First'.
Re^6: custom attribute? (wrong channel) by Flame (Deacon) on Jan 29, 2003 at 01:59 UTC
Well for now I'll go with the currying solution for now... but I still hope to eventually get the smaller (at least for me) solution working. This is the currying sub I've decided to use (or at least variations on this): `sub ctest { _self(@_); #Eliminate any object that may be in the args my %opts = @_; unless(defined($opts{'code'}) && ref($opts{'code'}) eq 'CODEREF'){ return ERROR; } unless(defined($opts{'mod'})){ $opts{'mod'} = 0; } return sub { #Retun useage info if called without args return [$opts{'args'},$opts{'mod'}] if(!@_); $opts{'code'}->(@_); } } #Used as: my $coderef = ctest( args => 3, code => sub { return 1 if(int($_[0]) == $_[0]); return; } ); $coderef->(4.23);` [download] My code doesn't have bugs, it just develops random features. Flame ~ Lead Programmer: GMS (DOWN) \| GMS (DOWN)	[reply] [d/l]

Replies are listed 'Best First'.

Re^6: custom attribute? (wrong channel)
by Flame (Deacon) on Jan 29, 2003 at 01:59 UTC

sub ctest {
   _self(@_); #Eliminate any object that may be in the args
   my %opts = @_;
   unless(defined($opts{'code'}) && ref($opts{'code'}) eq 'CODEREF'){
      return ERROR;
   }
   unless(defined($opts{'mod'})){
      $opts{'mod'} = 0;
   }
   return sub {
      #Retun useage info if called without args
      return [$opts{'args'},$opts{'mod'}] if(!@_);
      $opts{'code'}->(@_);
   }
}

#Used as:

my $coderef = ctest(
   args => 3,
   code => sub { return 1 if(int($_[0]) == $_[0]); return; }
);

$coderef->(4.23);
[download]

My code doesn't have bugs, it just develops random features.

Flame ~ Lead Programmer: GMS (DOWN) | GMS (DOWN)

[reply]
[d/l]