has fetcher => (is => 'ro', required => 1);
has data => (
is => 'rw',
lazy => 1,
builder => '_fetch_data',
predicate => 'has_data',
clearer => 'clear'
);
sub _fetch_data {
(shift)->fetcher->()
}
}1 POD Error
The following errors were encountered while parsing the POD:
- Around line 12:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content