#!perl -T

package Foo;

use Test::More tests => 1;

use base 'Class::Data::Inheritable::Translucent';

__PACKAGE__->mk_translucent(foo => "bar");

use constant FOO   => 0;
use constant ATTRS => 1;

sub attrs {
    my $self = shift;
    $self->[ATTRS] ||= {};
    $self->[ATTRS];
}

sub new {
    my $proto = shift;
    my $self = bless [qw/bar/];

    return $self;
}

my $obj  = Foo->new;
$obj->foo("foo");
ok((Foo->foo eq "bar" and $obj->foo eq "foo" and $obj->[FOO] eq "bar"),
  "overriding ->attrs Ok");