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)