Help for this page

Select Code to Download


  1. or download this
    Used module Readonly at line 9, column 3.  Readonly.pm is buggy and sl
    +ow. Use Const::Fast or ReadonlyX instead, or the core pragma constant
    +.  (Severity: 2)
    
  2. or download this
    Benchmark: timing 10000000 iterations of const, literal, normal, ro, r
    +o_simple, rotie, tglob...
         const:  0 wallclock secs ( 0.37 usr +  0.00 sys =  0.37 CPU) @ 27
    +027027.03/s (n=10000000)
                (warning: too few iterations for a reliable count)
    ...
     ro_simple:  5 wallclock secs ( 5.71 usr +  0.00 sys =  5.71 CPU) @ 17
    +51313.49/s (n=10000000)
         rotie:  5 wallclock secs ( 4.68 usr +  0.00 sys =  4.68 CPU) @ 21
    +36752.14/s (n=10000000)
         tglob:  1 wallclock secs ( 0.66 usr +  0.00 sys =  0.66 CPU) @ 15
    +151515.15/s (n=10000000)
    
  3. or download this
    Benchmark: timing 10000000 iterations of const, literal, normal, ro, r
    +o_simple, rotie, tglob...
         const:  0 wallclock secs ( 0.34 usr +  0.00 sys =  0.34 CPU) @ 29
    +411764.71/s (n=10000000)
    ...
     ro_simple:  2 wallclock secs ( 0.45 usr +  0.00 sys =  0.45 CPU) @ 22
    +222222.22/s (n=10000000)
         rotie:  1 wallclock secs ( 0.76 usr +  0.00 sys =  0.76 CPU) @ 13
    +157894.74/s (n=10000000)
         tglob:  0 wallclock secs ( 0.59 usr +  0.00 sys =  0.59 CPU) @ 16
    +949152.54/s (n=10000000)
    
  4. or download this
    package Boo;
    # some module I don't control from CPAN
    ...
    Readonly::Scalar our $BOO => 'boo';
    
    1;
    
  5. or download this
    use strict;
    use warnings
    ...
    use Boo; # this module uses Readonly
    
    Readonly::Scalar my $FOO => 'bar';
    
  6. or download this
    perl -I . foo.pl
    Prototype mismatch: sub Readonly::Scalar ($;$) vs ($$) at /usr/share/p
    +erl5/Readonly.pm line 257.
    Prototype mismatch: sub Readonly::Scalar ($;$) vs ($$) at /usr/share/p
    +erl5/Readonly.pm line 343.
    Prototype mismatch: sub Readonly::Readonly (\[%@$]$) vs (\[$@%]@) at (
    +eval 7) line 42.Management is only worried about my (our) code...not 
    +other CPAN modules that use Readonly
    
  7. or download this
    use strict;
    use warnings;
    ...
    use Boo;
    
    Readonly::Scalar my $FOO => 'bar';
    
  8. or download this
    package Boo;
    
    ...
    use File::BOM;
    
    1;
    
  9. or download this
    perl  -I . foo.pl
    Useless use of reverse in void context at /home/rclauer/lib/perl5/File
    +/BOM.pm line 205.
    ...
    BEGIN failed--compilation aborted at Boo.pm line 6.
    Compilation failed in require at foo.pl line 12.
    BEGIN failed--compilation aborted at foo.pl line 12.