File Coverage

blib/lib/Dotiac/DTL/Addon/markup.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch			n/a
condition	0	3	0.0
subroutine	12	13	92.3
pod	3	3	100.0
total	52	57	91.2

###############################################################################
#unparsed.pm
#Last Change: 2009-02-09
#Copyright (c) 2009 Marc-Seabstian "Maluku" Lucksch
#Version 0.2
####################
#This file is an addon to the Dotiac::DTL project.
#http://search.cpan.org/perldoc?Dotiac::DTL
#
#unparsed.pm is published under the terms of the MIT license, which basically
#means "Do with it whatever you want". For more information, see the
#license.txt file that should be enclosed with libsofu distributions. A copy of
#the license is (at the time of writing) also available at
#http://www.opensource.org/licenses/mit-license.php .
###############################################################################


package Dotiac::DTL::Addon::markup;
use strict;
use warnings;
use Text::Textile;
use Text::Markdown;
use File::Temp qw/ :POSIX /;
#use Text::Restructured;

#If it is not already loaded.
require Dotiac::DTL::Filter;
require Dotiac::DTL::Value;



our $VERSION=0.2;

my $oldmarkdown;
my $oldtextile;
my $oldrest;

sub import {
	no warnings qw/redefine/;
	$oldrest = *{Dotiac::DTL::Filter::restructuredtext};
	$oldmarkdown = *{Dotiac::DTL::Filter::markdown};
	$oldtextile = *{Dotiac::DTL::Filter::textile};
	*{Dotiac::DTL::Filter::restructuredtext}=\&restructuredtext;
	*{Dotiac::DTL::Filter::markdown}=\&markdown;
	*{Dotiac::DTL::Filter::textile}=\&textile;

}
sub unimport {
	no warnings qw/redefine/;
	*{Dotiac::DTL::Filter::restructuredtext} = $oldrest;
	*{Dotiac::DTL::Filter::markdown} = $oldmarkdown;
	*{Dotiac::DTL::Filter::textile} = $oldtextile;
}

sub markdown {
	my $val=shift;
	return Dotiac::DTL::Value->safe(Text::Markdown::markdown($val->repr()));
}
sub textile {
	my $val=shift;
	return Dotiac::DTL::Value->safe(Text::Textile::textile($val->repr()));
}
sub restructuredtext {
	return eval {
		no warnings qw/redefine/;
		my $w=$^W;
		$^W=0;
		require Text::Restructured::Writer;
		require Text::Restructured::DOM;
		require File::Temp; #Has to be installed by Dotiac::DTL
		my $writer = new Text::Restructured::Writer('html',{w=>'html',d=>0,D=>{}});
		my $value=shift;
		$value=$value->repr;
		my $dom;
		if ($value =~ /^
			$dom = Text::Restructured::DOM::Parse($value, {w=>'html',d=>0,D=>{}});
		}
		else {
			require Text::Restructured;
			my $rst_parser = new Text::Restructured({w=>'html',d=>0,D=>{}}, "1 release 1");
			$dom = $rst_parser->Parse($value, tmpnam());
		}
		my $x=$writer->ProcessDOM($dom);
		$^W=$w;
		$x=substr $x,index($x,"")+6;
		$x=substr $x,0,index($x,"
		return Dotiac::DTL::Value->safe($x);
	} || Dotiac::DTL::Value->safe("");
}

1;

__END__