{ package LT::Library; use Moose; has 'catalog' => (is => 'ro', required => 1); has 'address' => ( is => 'ro', default => sub { my ($self) = @_; return "http://www.librarything.com/catalog/" . $self->catalog; } ); has 'books' => ( is => 'ro', isa => 'ArrayRef[LT::Book]', lazy => 1, default => sub { my ($self) = @_; my @book_addrs = _fetch_book_addrs($self->address); my @books = map { LT::Book->new(address => $_) } @book_addrs; return \@books; }, ); } { package LT::Book; use Moose; has 'address' => (is => 'ro', required => 1); has 'work' => ( is => 'ro', isa => 'LT::Work', lazy => 1, default => sub { my ($self) = @_; my ($work_address) = $self->address =~ m{(.*/work/\d+)}; return LT::Work->new(address => $work_address); }, ); } { package LT::Work; use Moose; has 'address' => (is => 'ro', required => 1); has 'title' => ( is => 'ro', isa => 'Maybe[Str]', lazy => 1, default => sub { my ($self) = @_; return _fetch_title($self->address); } ); has 'author' => ( is => 'ro', isa => 'Maybe[Str]', lazy => 1, default => sub { my ($self) = @_; return _fetch_author($self->address); } ); has 'series' => ( is => 'ro', isa => 'Maybe[LT::Series]', lazy => 1, default => sub { my ($self) = @_; my $series_addr = _fetch_series_addr($self->address); return defined $series_addr ? LT::Series->new(address => $series_addr) : (); } ); } { package LT::Series; use Moose; has 'address' => (is => 'ro', required => 1); has 'title' => ( is => 'ro', isa => 'Maybe[Str]', lazy => 1, default => sub { my ($self) = @_; return _fetch_title($self->address); } ); has 'works' => ( is => 'ro', isa => 'ArrayRef[LT::Work]', lazy => 1, default => sub { my ($self) = @_; my @work_addrs = _fetch_work_addrs($self->address); my @works = map { LT::Work->new(address => $_) } @work_addrs; return \@works; }, ); }