Select Code to Download

#!/usr/bin/env perl
use 5.010_000;
...
say {*STDERR} Triangle->sides;                      # 3
say {*STDERR} Triangle->new->sides;                 # 3
say {*STDERR} Triangle->new( _SIDES => 4 )->sides;  # 3 with warning m
+essage

#!/usr/bin/env perl
use 5.010_000;
...
say {*STDERR} Triangle->new->sides; # 3

exit 0;