Help for this page

Select Code to Download


  1. or download this
    sub create_list {
   my %dbs = map { $_ => 1 } qw/fetch forward user smtp/;
   delete @dbs{@_};
   return keys %dbs;
}
  2. or download this
    use Quantum::Superpositions;

...
   my $skip = all @_;
   return eigenstates( $dbs ne $skip );
}
  3. or download this
    use Set::Scalar qw( );

...
   my $skip = Set::Scalar->new( @_ );
   return ($dbs - $skip)->members();
}