jonasbn

#!/usr/bin/env python

import re
import unittest
import string

def isSubstring (s1, s2): 

    # We do the matching
    result = re.search(s2, s1)

jonasbn

sudo: false # Migrating from legacy to container-based infrastructure for Travis
            # Ref: http://docs.travis-ci.com/user/migrating-from-legacy/
language: perl
perl:
  - "5.22"
  - "5.20"
  - "5.18"
  - "5.16"
  - "5.14"
  - "5.12"

jonasbn

name    = 
author  = Jonas B. Nielsen <jonasbn@cpan.org>
license = Artistic_2_0
copyright_holder = Jonas B. Nielsen

[@Basic]

[VersionFromModule]

[GitHub::Meta]

jonasbn

#!/bin/bash

./Build prereq_report | perl -pi -e 'm/([\w:]+)\s+([\d\.]+)\s+/; if ($1) { print STDERR "requires '\''$1'\''"; print STDERR ", '\''$2'\''" if $2; print STDERR ";\n" }' > /dev/null

jonasbn

# Courtesy of Jeffrey Ryan Thalhammer
# http://search.cpan.org/~thaljef/Test-Perl-Critic/lib/Test/Perl/Critic.pm

# The severity parameter interpretation was added by jonasbn
# See: http://logiclab.jira.com/wiki/display/OPEN/Test-Perl-Critic

use strict;
use warnings;
use File::Spec;
use Test::More;

jonasbn

use strict;
use warnings;

use Test::More;
eval 'use Test::CPAN::Changes';
plan skip_all => 'Test::CPAN::Changes required for this test' if $@;
changes_ok();

jonasbn

# REF: http://www.perlmonks.org/?node_id=485885
# PBP .perltidyrc file

-l=78   # Max line width is 78 cols
-i=4    # Indent level is 4 cols
-ci=4   # Continuation indent is 4 cols
-ce     # Cuddled elses
#-st     # Output to STDOUT
-se     # Errors to STDERR
-vt=2   # Maximal vertical tightness

jonasbn

{
    "build_systems":
    [
        {
            "name": "Module::Build",
            "cmd": ["perl Build.PL --verbose=1 ; ./Build"],
            "working_dir": "${project_path:${folder}}",
            "selector": "source.perl",
            "shell": true,

jonasbn

use Test::More;

eval "use Test::Pod 1.14";
plan skip_all => 'Test::Pod 1.14 required' if $@;
plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};

all_pod_files_ok();

jonasbn

#pod test courtesy of petdance
#http://use.perl.org/~petdance/journal/17412

use Test::More;
eval "use Test::Pod::Coverage 0.08";
plan skip_all => "Test::Pod::Coverage 0.08 required for testing POD coverage" if $@;
all_pod_coverage_ok();