gistfile1.txt

#!/usr/bin/perl

use Data::Dumper;
local $Data::Dumper::Indent = 0;

package A;
use Moo;

has a => (is => "ro");
has b => (is => "ro", lazy => 1, default => sub { shift->a + 1 });

package main;

my $a = A->new( a => 1 ); 

print Dumper({%$a}); 
print Dumper([ 
    map { $_ => $a->$_; } $a->meta->get_attribute_list
])';

# $VAR1 = {'a' => 1};
# $VAR1 = ['b',2,'a',1];