Help for this page

Select Code to Download

Select or download this

# IHeartFortran.pm
package IHeartFortran;
use strict; use warnings;
...

sub EQV()  { __PACKAGE__->new( sub { $_[0] == $_[1] ? 1 : 0 } ) }
sub NEQV() { __PACKAGE__->new( sub { $_[0] != $_[1] ? 1 : 0 } ) }

Select or download this

#!/usr/bin/perl
use strict; use warnings; use 5.010;
use IHeartFortran;
...

say 1 .NEQV. 1;
say 1 .NEQV. 2;