view release on metacpan or  search on metacpan

lib/Mic/Assembler.pm  view on Meta::CPAN

266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
        return $self->[ $spec->{implementation}{slot_offset}{$name} ];
    };
}
 
if ( !  $spec->{implementation}{methods}{ $meta->{property} }
     && $meta->{property}
     && $in_interface->{ $meta->{property} } ) {
 
    confess "'property' can only be used from Perl 5.16 onwards"
      if $] lt '5.016';
    $spec->{implementation}{methods}{ $meta->{property} } = sub : lvalue {
        my ($self) = @_;
 
        return $self->[ $spec->{implementation}{slot_offset}{$name} ];
    };
}
 
if ( !  $spec->{implementation}{methods}{ $meta->{writer} }
     && $meta->{writer}
     && $in_interface->{ $meta->{writer} } ) {

t/docs/arrayimps/spider2.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use Scalar::Util qw( reftype );
use Test::Lib;
use Test::More tests => 1;
 
SKIP: {
    skip "Perl version $] lower than 5.16", 1 if $] lt '5.016';
    require Example::ArrayImps::Spider_v2;
 
    my $spider = Example::ArrayImps::Spider_v2::->new;
 
    $spider->url = 'http://example.com';
    my $msg = $spider->crawl;
    is $msg, 'Crawling over http://example.com';
}