$args{pages} = [ map Page->new($_), @$pages ];

##</code><code>##

$args{pages} = [ map Page->new(URL=>$$_{Page}{URL})), @$pages ];

##</code><code>##

around BUILDARGS => sub {