Help for this page

Select Code to Download


  1. or download this
    use Tie::Scalar::Watch;
my $x = 10;
watch { $x > 5 } $x;
  2. or download this
    use Tie::Scalar::Watch;
my $x = 10;
tie $x, 'Tie::Scalar::Watch', $x, sub { $_[0] > 5 };