sub new { die "main::new sub called" }
sub Foo { die "main::Foo sub called" }

# can't use Foo->new here!!!!!!!!!!!
$obj = new Foo:: ;
print "Got $obj\n";

package Foo;
sub new {
    return bless [] => shift();
}

##</code><code>##

my $sorter = new Unicode::Collate::
                    upper_before_lower  => 1,
                    preprocess          => \&reduce_for_sorting,
                    entry               => deQ<<'END_OF_OVERRIDE',
     |Q|
     |Q|        005B 006E 002E ; [.0200.0020.0002.0391] # [n.
     |Q|        005B           ; [.0220.0020.0002.0392] # [
     |Q|        005D           ; [.0225.0020.0002.0395] # ]
     |Q|
END_OF_OVERRIDE
             ;

##</code><code>##

state $formatter = new Unicode::LineBreak::
    Context      => "NONEASTASIAN",     
    ColumnsMax   => 80,
    ColumnsMin   =>  8,
    Format       => "SIMPLE",            
    SizingMethod => \&tabbed_sizing,  
    TailorLB     => [
        ord("\t") => LB_SP,
        LEFT_QUOTES()  => LB_OP,
        RIGHT_QUOTES() => LB_CL,
    ],
    ;