package PagesGenerator;
our $VERSION=0.01;

use Moose; 
with 'MooseX::SimpleConfig';


use Page;


has 'tmpPages'=>(
              is=>'rw',
              isa=>'ArrayRef[HashRef]',
              default => sub { [ ] },
         );



has 'pages'=>(
              is=>'rw',
              isa=>'ArrayRef[Page]',
              default => sub { [ ] },
         );


sub BUILD{
	my $self=shift;
	

	
	@{$self->pages}= map {new Page(URL=>$$_{Page}{URL});} @{$self->tmpPages};
	
	for ( @{ $self->pages } ) {
		print $_->URL;
		print "\n";

	}
	

}