Text-Clip

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: 'Clip and extract text in clipboard-like way'
author:
  - 'Robert Krimen <robertkrimen@gmail.com>'
build_requires:
  Test::Most: 0
configure_requires:
  ExtUtils::MakeMaker: 6.31
generated_by: 'Dist::Zilla version 2.101170'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html

Makefile.PL  view on Meta::CPAN

                                 },
                       'NAME' => 'Text::Clip',
                       'DISTNAME' => 'Text-Clip',
                       'CONFIGURE_REQUIRES' => {
                                                 'ExtUtils::MakeMaker' => '6.31'
                                               },
                       'AUTHOR' => 'Robert Krimen <robertkrimen@gmail.com>',
                       'BUILD_REQUIRES' => {
                                             'Test::Most' => '0'
                                           },
                       'ABSTRACT' => 'Clip and extract text in clipboard-like way',
                       'EXE_FILES' => [],
                       'VERSION' => '0.0014',
                       'PREREQ_PM' => {
                                        'Any::Moose' => '0'
                                      },
                       'LICENSE' => 'perl'
                     );


unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {

README  view on Meta::CPAN

NAME
    Text::Clip - Clip and extract text in clipboard-like way

VERSION
    version 0.0014

SYNOPSIS
        $data = <<_END_
        # Xyzzy
        #   --- START 
            qwerty

lib/Text/Clip.pm  view on Meta::CPAN

package Text::Clip;
BEGIN {
  $Text::Clip::VERSION = '0.0014';
}
# ABSTRACT: Clip and extract text in clipboard-like way


use Any::Moose;

has data => qw/ reader data writer _data required 1 /;
has [qw/ start head tail mhead mtail /] => qw/ is rw required 1 isa Int default 0 /;
has _parent => qw/ is ro isa Maybe[Text::Clip] init_arg parent /;

has found => qw/ is ro required 1 isa Str /, default => '';
has content => qw/ is ro required 1 isa Str /, default => '';

lib/Text/Clip.pm  view on Meta::CPAN

    else                        { return $match eq $is }
}

1;

__END__
=pod

=head1 NAME

Text::Clip - Clip and extract text in clipboard-like way

=head1 VERSION

version 0.0014

=head1 SYNOPSIS

    $data = <<_END_
    # Xyzzy
    #   --- START