File Coverage

blib/lib/FreeMind/Convert.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package FreeMind::Convert ;

#use 5.008005 ;
use strict ;
use warnings ;
use Carp ;
use base qw(Class::Accessor);
use XML::Simple ;
use Jcode ;
use HTML::Entities ;

our $VERSION = '0.03' ;

__PACKAGE__->mk_accessors(qw(_format setOutputJcode));

sub new {
    my $class   = shift;
    my $self    = bless {}, $class;
    $self->_init(@_);
    $self;
}

sub _init {
    my $self    = shift;
    $self->{depth}  = 0 ;
}

sub loadFile {
    my $self    = shift ;
    my $file    = shift ;
    $self->{mm} = XMLin($file, ForceArray => 1) ;
}

sub toText {
    my $self    = shift ;
    $self->_format('text') ;
    $self->_checkNode($self->{mm}) ;
    return $self->{result} ;
}

sub toMediaWiki {
    my $self    = shift ;
    $self->_format('mediawiki') ;
    $self->_checkNode($self->{mm}) ;
    return $self->{result} ;
}

sub _filterText {
    my $self    = shift ;
    my $ref     = shift ;
    my $text    = $ref->{TEXT} ;

    # to unicode
    decode_entities( $text ) ;
    $text =~ s|^(.*)$|$1|i ;

    # set font tag
    my $color   = $ref->{COLOR}             || undef ;
    my $bgcolor = $ref->{BACKGROUND_COLOR}  || undef ;
    my $size    = '1em' ;
    my $bold ;
    my $italic ;
    if( defined( $ref->{font} ) ){
        my $fontAttr    = $ref->{font}[0] ;
        $size   = ( int( $fontAttr->{SIZE} / 1.2 ) / 10 ). 'em'     if( defined( $fontAttr->{SIZE} ) ) ;
        $bold   = 1 if( defined( $fontAttr->{BOLD} ) && $fontAttr->{BOLD} eq 'true' ) ;
        $italic = 1 if( defined( $fontAttr->{ITALIC} ) && $fontAttr->{ITALIC} eq 'true' ) ;
    }
    my $style ;
    $style  .= "font-size: $size;"      if( defined( $size ) ) ;
    $style  .= "color: $color;"         if( defined( $color ) ) ;
    $style  .= "background: $bgcolor;"  if( defined( $bgcolor ) ) ;
    $style  .= "font-weight: bold;"     if( defined( $bold ) ) ;
    $style  .= "font-style: italic;"    if( defined( $italic ) ) ;
    if( defined( $style ) ){
        $text   = "$text" ;
    }

    # to japanese
    if( $self->setOutputJcode() ){
        Jcode::convert( \$text, $self->setOutputJcode, 'utf8' ) ;
    }
    return $text ;
}

sub _checkNode {
    my $self    = shift ;
    my $ref     = shift ;
    return if( ! defined( $ref->{node} ) ) ;
    foreach my $refc (@{$ref->{node}}){
        my $text    = $self->_filterText( $refc ) ;
        # text
        if( $self->_format() eq 'text' ){
            $self->{result} .= qq(\t) x $self->{depth} . "$text\n" ;
        }
        # MediaWiki
        elsif( $self->_format() eq 'mediawiki' ){
            if( $self->{depth} <= 1 ){
                my $simbol  = '=' x ( $self->{depth} + 2 ) ;
                $self->{result} .= "$simbol $text $simbol\n" ;
            }
            else{
                my $simbol  = '*' x ( $self->{depth} - 1 ) ;
                $self->{result} .= "$simbol $text\n" ;
            }
        }

        $self->{depth}  ++ ;
        $self->_checkNode( $refc ) ;
        $self->{depth}  -- ;
    }
}

1 ;

__END__