Acme-Matrix

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Changes
ignore.txt
lib/Acme/Matrix.pm
lib/Acme/Matrix/Cmd.pm
Makefile.PL
MANIFEST			This list of files
matrix
META.json			Module JSON meta-data (added by MakeMaker)
META.yml			Module YAML meta-data (added by MakeMaker)
README
t/00-load.t
t/manifest.t
t/pod-coverage.t
t/pod.t
xt/boilerplate.t

META.json  view on Meta::CPAN

         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "0"
         }
      }
   },
   "release_status" : "stable",
   "version" : "0.11",
   "x_serialization_backend" : "JSON::PP version 4.06"
}

lib/Acme/Matrix/Cmd.pm  view on Meta::CPAN

package Acme::Matrix::Cmd;

use Rope::Cmd;
use Coerce::Types::Standard qw/Int Bool JSON/;
use Acme::Matrix;
use Ascii::Text;

colors (
	title => 'bright_green',
	abstract => 'green',
	options_title => 'bright_green',
	options => 'bright_green',
	options_description => 'green'
);

lib/Acme/Matrix/Cmd.pm  view on Meta::CPAN

);

option spacing => (
	type => Int,
	description => 'spacing between characters',
	option_alias => 's',
	value => 2
);

option words => (
	type => JSON->by('decode'),
	coerce_type => 1,
	description => 'words to use in the matrix rain',
	option_alias => 'w'
);

option chars => (
	type => JSON->by('decode'),
	coerce_type => 1,
	description => 'chars to use in the matrix rain',
	option_alias => 'c'
);

sub callback {
	my ($self) = @_;

	my @words;
	if ($self->words){