Devel-REPL-Plugin-Clipboard

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: '#clip output to clipboard'
author:
  - 'Steve Nolte <mcsnolte@cpan.org>'
build_requires:
  File::Find: 0
  Test::More: 0
  strict: 0
  warnings: 0
configure_requires:
  ExtUtils::MakeMaker: 6.30
dynamic_config: 0

Makefile.PL  view on Meta::CPAN

use strict;
use warnings;



use ExtUtils::MakeMaker 6.30;



my %WriteMakefileArgs = (
  "ABSTRACT" => "#clip output to clipboard",
  "AUTHOR" => "Steve Nolte <mcsnolte\@cpan.org>",
  "BUILD_REQUIRES" => {
    "File::Find" => 0,
    "Test::More" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => "6.30"
  },

README  view on Meta::CPAN

NAME
    Devel::REPL::Plugin::Clipboard - #clip output to clipboard

VERSION
    version 0.004

COMMANDS
    This module provides the following command to your Devel::REPL shell:

  #clip
    The "#clip" puts the output of the last command on your clipboard.

AUTHOR
    Steve Nolte <mcsnolte@cpan.org>

COPYRIGHT AND LICENSE
    This software is copyright (c) 2013 by Steve Nolte.

    This is free software; you can redistribute it and/or modify it under
    the same terms as the Perl 5 programming language system itself.

lib/Devel/REPL/Plugin/Clipboard.pm  view on Meta::CPAN

package Devel::REPL::Plugin::Clipboard;

# ABSTRACT: #clip output to clipboard

use Devel::REPL::Plugin;
use namespace::autoclean;
use Clipboard;
use Term::ANSIColor 2.01 qw(colorstrip);


sub BEFORE_PLUGIN {
	my $self = shift;
	$self->load_plugin('Turtles');

lib/Devel/REPL/Plugin/Clipboard.pm  view on Meta::CPAN

	my $output = colorstrip( join( "\n", map { $_ // '' } @ret ) );

	$self->last_output($output);

	return wantarray ? @ret : $ret[0];
};

sub command_clip {
	my ($self) = @_;
	Clipboard->copy( $self->last_output );
	return 'Output copied to clipboard';
}

1;

__END__

=pod

=head1 NAME

Devel::REPL::Plugin::Clipboard - #clip output to clipboard

=head1 VERSION

version 0.004

=head1 COMMANDS

This module provides the following command to your Devel::REPL shell:

=head2 #clip

The C<#clip> puts the output of the last command on your clipboard.

=head1 AUTHOR

Steve Nolte <mcsnolte@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Steve Nolte.

This is free software; you can redistribute it and/or modify it under