MojoMojo
view release on metacpan or search on metacpan
---
abstract: 'A Wiki with a tree'
author:
- 'Marcus Ramberg C<marcus@nordaaker.com>'
build_requires:
Email::Sender::Simple: '0.102370'
ExtUtils::MakeMaker: 6.59
SQL::Translator: '0.09006'
Test::Differences: 0
Test::More: '0.88'
Test::WWW::Mechanize::Catalyst: '0.51'
WWW::Mechanize: '1.54'
WWW::Mechanize::TreeBuilder: '1.10000'
configure_requires:
ExtUtils::MakeMaker: 6.59
File::Copy::Recursive: 0
distribution_type: module
dynamic_config: 1
generated_by: 'Module::Install version 1.17'
MYMETA.json view on Meta::CPAN
"t"
]
},
"prereqs" : {
"build" : {
"requires" : {
"Email::Sender::Simple" : "0.102370",
"ExtUtils::MakeMaker" : "6.59",
"File::Copy::Recursive" : "0",
"SQL::Translator" : "0.09006",
"Test::Differences" : "0",
"Test::More" : "0.88",
"Test::WWW::Mechanize::Catalyst" : "0.51",
"WWW::Mechanize" : "1.54",
"WWW::Mechanize::TreeBuilder" : "1.10000"
}
},
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "0"
}
MYMETA.json view on Meta::CPAN
"Moose" : "0",
"Net::Amazon" : "0",
"Number::Format" : "0",
"Plack" : "0.9974",
"Pod::Simple::HTML" : "3.01",
"SQL::Translator" : "0.09006",
"Syntax::Highlight::Engine::Kate" : "0",
"Template" : "2.20",
"Template::Plugin::JavaScript" : "0",
"Term::Prompt" : "0",
"Test::Differences" : "0",
"Test::More" : "0.88",
"Test::WWW::Mechanize::Catalyst" : "0.51",
"Text::Context" : "3.5",
"Text::Emoticon::MSN" : "0",
"Text::MultiMarkdown" : "1.000032",
"Text::Password::Pronounceable" : "0",
"Text::Textile" : "0",
"URI" : "1.37",
"URI::Fetch" : "0",
"URI::Find" : "0",
---
abstract: 'A Wiki with a tree'
author:
- 'Marcus Ramberg C<marcus@nordaaker.com>'
build_requires:
Email::Sender::Simple: '0.102370'
ExtUtils::MakeMaker: '6.59'
File::Copy::Recursive: '0'
SQL::Translator: '0.09006'
Test::Differences: '0'
Test::More: '0.88'
Test::WWW::Mechanize::Catalyst: '0.51'
WWW::Mechanize: '1.54'
WWW::Mechanize::TreeBuilder: '1.10000'
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Module::Install version 1.17, CPAN::Meta::Converter version 2.150005'
license: perl
meta-spec:
Moose: '0'
Net::Amazon: '0'
Number::Format: '0'
Plack: '0.9974'
Pod::Simple::HTML: '3.01'
SQL::Translator: '0.09006'
Syntax::Highlight::Engine::Kate: '0'
Template: '2.20'
Template::Plugin::JavaScript: '0'
Term::Prompt: '0'
Test::Differences: '0'
Test::More: '0.88'
Test::WWW::Mechanize::Catalyst: '0.51'
Text::Context: '3.5'
Text::Emoticon::MSN: '0'
Text::MultiMarkdown: '1.000032'
Text::Password::Pronounceable: '0'
Text::Textile: '0'
URI: '1.37'
URI::Fetch: '0'
URI::Find: '0'
Makefile.PL view on Meta::CPAN
feature 'POD formatter', 'Pod::Simple::HTML' => '3.01';
feature 'Transclusion support',
'LWP::Simple' => 0,
'URI::Fetch' => 0;
feature 'Amazon boxes', 'Net::Amazon' => 0;
feature('Emoticons' => [ 'Text::Emoticon::MSN' => 0, -default => 0 ]);
configure_requires 'File::Copy::Recursive';
test_requires 'Test::More' => '0.88';
test_requires 'Test::Differences';
# all tests require a database to be deployed, even though SQLT is not necessary for producton if a DB exists
test_requires 'SQL::Translator' => '0.09006';
test_requires 'Email::Sender::Simple' => '0.102370';
test_requires 'WWW::Mechanize' => '1.54';
test_requires 'Test::WWW::Mechanize::Catalyst' => '0.51';
test_requires 'WWW::Mechanize::TreeBuilder' => '1.10000';
tests(join ' ', (glob('t/*.t'), glob('t/*/*.t')));
t/c/attachment.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 29;
use Test::Differences;
BEGIN{
$ENV{CATALYST_CONFIG} = 't/var/mojomojo.yml';
};
use_ok( 'Test::WWW::Mechanize::Catalyst', 'MojoMojo' );
use_ok( 'MojoMojo::Controller::Attachment' );
my $mech = Test::WWW::Mechanize::Catalyst->new;
my $file_to_upload = $0;
t/defang_xss.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use MojoMojo::Formatter::Defang;
use Test::More tests => 11;
use Test::Differences;
my ( $content, $got, $expected, $test );
$test = 'unclosed iframe src http not allowed';
$content = <<'HTML';
<iframe src=http://dandascalescu.com/bugs/mojomojo/scriptlet.html
HTML
$expected =
'<!--defang_iframe defang_src=http://dandascalescu.com/bugs/mojomojo/scriptlet.html
-->';
t/formatter_all_markdown.t view on Meta::CPAN
#!/usr/bin/env perl
# Comprehensive/chained test of formatters, with the main formatter set to MultiMarkdown
use strict;
use warnings;
use Test::More tests => 27;
use HTTP::Request::Common;
use Test::Differences;
my $original_formatter; # used to save/restore the existing formatter set up in mojomojo.db
my $c; # the Catalyst object of this live server
my $test; # test description
my $content; # the markup content that is being rendered
my $got; # the rendered result
my $expected; # the expected rendered result
BEGIN {
t/formatter_all_textile.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 32;
use HTTP::Request::Common;
use Test::Differences;
use FindBin '$Bin';
use lib "$Bin/../lib";
use Data::Dumper;
my $original_formatter; # used to save/restore the existing formatter set up in mojomojo.db
my $c; # the Catalyst object of this live server
my $test; # test description
my $content; # the markup content that is being rendered
my $got; # the rendered result
my $expected; # the expected rendered result
t/formatter_defang.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 17;
use Test::Differences;
use HTTP::Request::Common;
BEGIN {
$ENV{CATALYST_CONFIG} = 't/var/mojomojo.yml';
use_ok 'MojoMojo::Formatter::Defang';
use_ok 'Catalyst::Test', 'MojoMojo';
}
my ( $content, $got, $expected, $test );
t/formatter_markdown.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 15;
use MojoMojo::Formatter::Markdown;
use Test::Differences;
my ( $content, $got, $expected, $test );
#----------------------------------------------------------------------------
$test = 'extra EOL at EOF';
$content = 'foo';
$expected = "<p>foo</p>\n";
is( MojoMojo::Formatter::Markdown->main_format_content( \$content ), $expected, $test );
$test = 'consecutive EOL at EOF collapsed into one';
t/formatter_syntax_highlight.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use MojoMojo::Formatter::SyntaxHighlight;
use HTTP::Request::Common;
use Test::More;
use Test::Differences;
my ( $content, $got, $expected, $test, $c, $original_formatter );
BEGIN {
plan skip_all => 'Requirements not installed for the Syntax Highlighter formatter'
unless MojoMojo::Formatter::SyntaxHighlight->module_loaded;
plan tests => 15;
use_ok('MojoMojo::Formatter::Textile');
$ENV{CATALYST_CONFIG} = 't/var/mojomojo.yml';
use_ok( 'Catalyst::Test', 'MojoMojo' );
}
t/formatter_textile.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use MojoMojo::Formatter::Textile;
use Test::More tests => 6;
use Test::Differences;
my ( $content, $got, $expected, $test );
#----------------------------------------------------------------------------
$test = 'extra EOL at EOF';
$content = 'foo';
$expected = "<p>foo</p>\n";
is( MojoMojo::Formatter::Textile->main_format_content( \$content ), $expected, $test );
t/formatter_toc.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
eval 'use HTML::Toc';
if ($@) {
plan skip_all => "need HTML::Toc to run this test\n";
}
use MojoMojo::Formatter::TOC;
use Test::Differences;
#--- Basic functionality --------------------------------------------
my $content = <<HTML;
{{toc}}
<h1>Chapter 1</h1>
Some text here
<h1>Chapter 2</h1>
Second chapter
HTML
t/revisions.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 3;
use Test::Differences;
my $original_formatter; # current formatter set up in mojomojo.db
my $c; # the Catalyst object of this live server
my $test; # test description
my $body; # the MojoMojo page body as fetched by get()
BEGIN {
$ENV{CATALYST_CONFIG} = 't/var/mojomojo.yml';
use_ok 'Catalyst::Test', 'MojoMojo';
}
t/unicode.t view on Meta::CPAN
#!/usr/bin/env perl
# Unicode tests: Unicode text in page content, wiki links, tags etc.
use strict;
use warnings;
use Test::More tests => 9;
use HTTP::Request::Common;
use Test::Differences;
use utf8;
my $original_formatter; # current formatter set up in mojomojo.db
my $c; # the Catalyst object of this live server
my $test; # test description
my $content; # source markup
my $body; # # the MojoMojo page body as fetched by get()
my $mech = Test::WWW::Mechanize::Catalyst->new;
BEGIN {
t/wikispaces2markdown.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Text::Wikispaces2Markdown;
use Test::More tests => 1;
use Test::Differences;
#--- Basic functionality --------------------------------------------
my $content = <<WIKISPACES;
=Car Buyer's Guide=
So you want a buy a car... welcome to the world of options.
If you're looking for a car that leaves others in the dust at the red light, this guide is not for you. I don't care about showing off in a car or [[http://youtube.com/watch?v=nhzFU0Crleo|roasting tires]]. I do care about staying alive if one of thos...
I wrote the guide below for myself, while I was shopping for a new car. I hope it helps you too.
( run in 0.674 second using v1.01-cache-2.11-cpan-131fc08a04b )