package Foo;

use constant BAR        =>1;
use constant BAZ        =>2;
use constant SO_ON      =>3;
use constant SO_FORTH   =>4;

sub new
{
    return bless ([],shift);
}

sub getBar
{
    my $self=shift;
    $self->[BAR];
}