use 5.010;
use strict;
use warnings;

{

    package Foo;
    use Moose;
    has bar => ( is => 'rw' );
    has baz => ( is => 'rw' );
}

my $foo = Foo->new( bar => 1 );
say join "\n", keys %$foo;
__END__
bar