view release on metacpan or  search on metacpan

t/20-pod-synopsis.t  view on Meta::CPAN

    }
}

done_testing();

sub _extract_code_from_synopsis {
    my ($module) = @_;

    my $filename = $INC{ $module =~ s{::}{/}gr . '.pm' };

    my $file = do { local ( @ARGV, $/ ) = $filename; <> };

    my ($code) = $file =~ m{=head1 SYNOPSIS\n(.+?)=head1}ms;

    return $code;
}