Subroutine UNIVERSAL::VERSION redefined at /usr/lib/perl5/5.8.0/i386-linux-thread-multi/DynaLoader.pm line 249.
Subroutine UNIVERSAL::can redefined at /usr/lib/perl5/site_perl/5.8.0/Class/Std.pm line 506.

##</code><code>##

package TestBase;

use strict;
use warnings;

use Class::Std;

{
    my %prop1 : ATTR( init_arg => 'prop1' get => 'prop1' set => 'prop1' );
    my %prop2 : ATTR( init_arg => 'prop2' get => 'prop2' set => 'prop2' );

    1;
}

##</code><code>##

#!/usr/bin/perl -W

use strict;
use warnings;

use TestBase;

my $b = TestBase->new( { prop1 => 'hello', prop2 => 'world' } );
print $b->_DUMP ;
print 'b->prop1 = ' . $b->get_prop1 . "\n";
print 'b->prop2 = ' . $b->get_prop2 . "\n";
$b->set_prop1('horrendo');
$b->set_prop2('revolver');
print $b->_DUMP ;

##</code><code>##

    no warnings 'redefine';