Help for this page

Select Code to Download


  1. or download this
    sub new { die "main::new sub called" }
sub Foo { die "main::Foo sub called" }
...
sub new {
    return bless [] => shift();
}
  2. or download this
    my $sorter = new Unicode::Collate::
                    upper_before_lower  => 1,
...
     |Q|
END_OF_OVERRIDE
             ;
  3. or download this
    state $formatter = new Unicode::LineBreak::
    Context      => "NONEASTASIAN",     
...
        RIGHT_QUOTES() => LB_CL,
    ],
    ;