sub BUILD {
my( $self ) = @_;
$self->{page} = $self->_parse_page( $self->{page} );
}
around 'page' => sub {
my( $orig, $self, $page ) = @_;
my $parsed = $page;
return $self->$orig() if ( !$parsed );
$parsed = $self->_parse_page( $parsed );
$self->$orig( $parsed );
};
sub _parse_page {
my( $self, $page ) = @_;
my $parsed = $page;
$parsed =~ s/^.+\/(.+)$/$1/;
$parsed
}
Касаемо работы — есть подвохи. Если заставлять себя что-то делать, когда не хочется — оно вам будет всё меньше и меньше нравится. В результате даже то, что изначально было интересно, переходит в разряд обязаловки.
Может быть, как раз стоит отвлечься на несколько часов, на день, ну пусть на два. А потом вдруг накатит желание, и за пару часов можно сделать очень многое.
Как всегда, по собственному опыту сужу. Не факт, что вам подойдёт. Но подумать стоит.