{
    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;
        },
    );
}
[download]