Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

30 lines (19 sloc) 0.709 kb
#!/usr/bin/perl
# Copyright 2012, Paul Johnson (paul@pjcj.net)
# This software is free. It is licensed under the same terms as Perl itself.
# The latest version of this software should be available from my homepage:
# http://www.pjcj.net
# __COVER__ skip_test $] < 5.008002 || !(eval "use Moo 1.000003; 23")
# __COVER__ skip_reason Moo not available
use strict;
use warnings;
package Cover_branch_bug_Moo;
use Moo;
has config => ( is => 'lazy' );
has config2 => ( is => 'ro' );
__PACKAGE__->new( config => {}, config2 => {} )->trigger;
__PACKAGE__->new( config => {debug => 1}, config2 => {debug => 1} )->trigger;
sub trigger {
1 if $_[0]->config->{debug};
1 if $_[0]->config2->{debug};
}
Jump to Line
Something went wrong with that request. Please try again.