view release on metacpan or  search on metacpan

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

                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

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';
}