@@ -0,0 +1,3 @@
+steps = CommitMessageWrap, FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN
+svk.tagpattern = rel-%v
+commit_message.format = lang/perl/Punc: %msg
\ No newline at end of file
@@ -0,0 +1,17 @@
+branches:
+ except:
+ - gh-pages
+language: perl
+perl:
+ - "5.20"
+ - "5.18"
+ - "5.16"
+ - "5.14"
+ - "5.12"
+ - "5.10"
+
+before_install:
+ - cpanm --notest Test::Version
+ - cpanm --notest Test::Pod::Coverage
+ - cpanm --notest Test::Pod
+
@@ -1,5 +1,10 @@
Revision history for Text-Trac
+0.16 2014.09.13
+ New maintainer.
+ Link to Github.
+ License in META files.
+
0.15 Sun Mar 8
Fix for RT#43894.Updated Module::Install in this module.
Thanks for ANDK!
@@ -1,3 +1,5 @@
+.shipit
+.travis.yml
Changes
inc/Module/AutoInstall.pm
inc/Module/Install.pm
@@ -40,7 +42,6 @@ lib/Text/Trac/Text.pm
lib/Text/Trac/Ul.pm
Makefile.PL
MANIFEST This list of files
-META.yml
README
t/00-load.t
t/01-text-trac.t
@@ -55,3 +56,4 @@ t/boilerplate.t
t/pod-coverage.t
t/pod.t
t/TestTextTrac.pm
+t/version.t
@@ -1,28 +0,0 @@
----
-abstract: 'Perl extension for formatting text with Trac Wiki Style.'
-author:
- - 'Gosuke Miyashita, C<< <gosukenator at gmail.com> >>'
-distribution_type: module
-generated_by: 'Module::Install version 0.79'
-license: perl
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
-name: Text-Trac
-no_index:
- directory:
- - inc
- - t
- package:
- - TestMacro
-requires:
- Class::Accessor::Fast: 0
- Class::Data::Inheritable: 0
- HTML::Entities: 0
- List::MoreUtils: 0
- Test::Base: 0
- Tie::IxHash: 0
- UNIVERSAL::require: 0
-resources:
- license: http://dev.perl.org/licenses/
-version: 0.15
@@ -2,6 +2,7 @@ use inc::Module::Install;
name('Text-Trac');
all_from('lib/Text/Trac.pm');
+license 'perl';
requires('Test::Base');
requires('UNIVERSAL::require');
@@ -16,4 +17,6 @@ no_index( package => 'TestMacro' );
auto_include;
auto_install;
+repository 'https://github.com/szabgab/Text-Trac';
+
WriteAll;
@@ -5,6 +5,8 @@ use base qw( Class::Accessor::Fast Class::Data::Inheritable );
use UNIVERSAL::require;
use Text::Trac::InlineNode;
+our $VERSION = '0.16';
+
__PACKAGE__->mk_classdata(
block_nodes => [ qw( heading hr p ul ol blockquote pre table dl ) ]
);
@@ -3,6 +3,8 @@ package Text::Trac::Blockquote;
use strict;
use base qw( Text::Trac::BlockNode );
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->pattern(qr/^(?:>|\s+(?![*\s]|[\daiAI]\.\ +).+$)/);
@@ -2,6 +2,8 @@ package Text::Trac::Context;
use strict;
use base qw (Class::Accessor::Fast);
+our $VERSION = '0.16';
+
__PACKAGE__->mk_accessors( qw( ul ol min_heading_level permalink in_block_of trac_url ) );
my %Defaults = (
@@ -3,6 +3,8 @@ package Text::Trac::Dl;
use strict;
use base qw(Text::Trac::BlockNode);
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->pattern(qr/^\s+(.*)::$/xms);
@@ -2,6 +2,8 @@ package Text::Trac::Heading;
use strict;
use base qw(Text::Trac::BlockNode);
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->pattern(qr/^(=+) \s (.*) \s (=+)$/xms);
@@ -3,6 +3,8 @@ package Text::Trac::Hr;
use strict;
use base qw(Text::Trac::BlockNode);
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->pattern(qr/^----$/xms);
@@ -7,6 +7,8 @@ use UNIVERSAL::require;
use Text::Trac::LinkResolver;
use HTML::Entities qw();
+our $VERSION = '0.16';
+
tie my %token_table, 'Tie::IxHash';
#my $handler = $token_table{'!?\\[\\d+\\]|(?:\\b|!)r\\d+\\b(?!:\\d)'};
@@ -3,6 +3,8 @@ package Text::Trac::LinkResolver::Attachment;
use strict;
use base qw( Text::Trac::LinkResolver );
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
}
@@ -3,6 +3,8 @@ package Text::Trac::LinkResolver::Changeset;
use strict;
use base qw( Text::Trac::LinkResolver );
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->{pattern} = '!?\[\d+\]|(?:\b|!)r\d+\b(?!:\d)';
@@ -3,6 +3,8 @@ package Text::Trac::LinkResolver::Comment;
use strict;
use base qw( Text::Trac::LinkResolver );
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->{pattern} = '!?(?<!&)comment:ticket:\d+:\d+';
@@ -3,6 +3,8 @@ package Text::Trac::LinkResolver::Log;
use strict;
use base qw( Text::Trac::LinkResolver );
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->{pattern} = '!?\[\d+:\d+\]|(?:\b|!)r\d+:\d+\b';
@@ -3,6 +3,8 @@ package Text::Trac::LinkResolver::Milestone;
use strict;
use base qw( Text::Trac::LinkResolver );
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
}
@@ -3,6 +3,8 @@ package Text::Trac::LinkResolver::Report;
use strict;
use base qw( Text::Trac::LinkResolver );
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->{pattern} = '!?\{\d+\}';
@@ -3,6 +3,8 @@ package Text::Trac::LinkResolver::Source;
use strict;
use base qw( Text::Trac::LinkResolver );
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
}
@@ -3,6 +3,8 @@ package Text::Trac::LinkResolver::Ticket;
use strict;
use base qw( Text::Trac::LinkResolver );
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->{pattern} = '!?(?<!&)\#\d+';
@@ -3,6 +3,8 @@ package Text::Trac::LinkResolver::Wiki;
use strict;
use base qw( Text::Trac::LinkResolver );
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->{pattern} = '!?(?<!/)\b[A-Z][a-z]+(?:[A-Z][a-z]*[a-z/])+' .
@@ -4,6 +4,8 @@ use strict;
use warnings;
use List::MoreUtils qw( any );
+our $VERSION = '0.16';
+
our @handlers = qw( changeset wiki report log ticket milestone source attachment comment );
sub new {
@@ -3,6 +3,8 @@ package Text::Trac::Macro::HelloWorld;
use strict;
use warnings;
+our $VERSION = '0.16';
+
sub process {
my ( $class, $c, @args ) = @_;
return "Hello World, args = " . join ', ', @args;
@@ -3,6 +3,8 @@ package Text::Trac::Macro::Timestamp;
use strict;
use warnings;
+our $VERSION = '0.16';
+
sub process {
my $class = shift;
return '<b>' . localtime(time) . '</b>';
@@ -4,6 +4,8 @@ use base qw(Text::Trac::InlineNode Class::Accessor::Fast);
use UNIVERSAL::require;
use Text::ParseWords qw(quotewords);
+our $VERSION = '0.16';
+
__PACKAGE__->mk_accessors( 'pattern' );
sub new {
@@ -2,6 +2,8 @@ package Text::Trac::Node;
use strict;
use base qw( Class::Accessor::Fast );
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->{pattern} = '';
@@ -3,6 +3,8 @@ package Text::Trac::Ol;
use strict;
use base qw(Text::Trac::BlockNode);
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->pattern(qr/(\s+) ([\daiAI])\. \s+ (.*)$/xms);
@@ -3,6 +3,8 @@ use strict;
use base qw(Text::Trac::BlockNode);
use Text::Trac::Text;
+our $VERSION = '0.16';
+
sub parse {
my ( $self, $l ) = @_;
my $c = $self->{context};
@@ -3,6 +3,8 @@ package Text::Trac::Pre;
use strict;
use base qw(Text::Trac::BlockNode);
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->pattern(qr/^{{{$/xms);
@@ -3,6 +3,8 @@ package Text::Trac::Table;
use strict;
use base qw(Text::Trac::BlockNode);
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->pattern(qr/^\|\|([^\|]*\|\|(?:[^\|]*\|\|)+)$/xms);
@@ -1,6 +1,8 @@
package Text::Trac::Text;
use strict;
+our $VERSION = '0.16';
+
sub new {
my $class = shift;
my %args = @_;
@@ -3,6 +3,8 @@ package Text::Trac::Ul;
use strict;
use base qw(Text::Trac::BlockNode);
+our $VERSION = '0.16';
+
sub init {
my $self = shift;
$self->pattern(qr/(\s+) \* \s+ (.*)$/xms);
@@ -5,7 +5,7 @@ use strict;
use Text::Trac::Context;
use Text::Trac::BlockNode;
-our $VERSION = '0.15';
+our $VERSION = '0.16';
my %Defaults = (
html => '',
@@ -425,3 +425,19 @@ My reply text
<p>
My reply text
</p>
+
+#### List item
+#--- input
+#* First
+#* Second
+#--- expected
+#<ul>
+# <li>First</li>
+# <li>Second</li>
+#</ul>
+#
+#### Image
+#--- input
+#[[Image(cool_diff_box.png)]]
+#--- expected
+#<img src="cool_diff_box.png" />
@@ -0,0 +1,12 @@
+#!perl
+
+use Test::More;
+eval q{use Test::Version 1.003001 qw( version_all_ok ), {
+ is_strict => 0,
+ has_version => 1,
+ };
+};
+plan skip_all => "Test::Version 1.003001 required for testing version numbers" if $@;
+version_all_ok();
+done_testing;
+