File Coverage

blib/lib/Excel/CloneXLSX/Format.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	9	12	75.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	48	52	92.3

package Excel::CloneXLSX::Format;

use 5.008001;
use strict;
use warnings;

our $VERSION = "0.02";

use Exporter 'import';
our @EXPORT_OK = qw(translate_xlsx_format);

sub translate_xlsx_format {
    my ($old_fmt) = @_;
    return {} unless (defined $old_fmt);

    # font
    my $old_font = $old_fmt->{Font};
    my %new_fmt  = (
        font           => $old_font->{Name},
        size           => $old_font->{Height},
        color          => $old_font->{Color},
        bold           => $old_font->{Bold},
        italic         => $old_font->{Italic},
        underline      => $old_font->{UnderlineStyle},
        font_strikeout => $old_font->{Strikeout},
        font_script    => $old_font->{Super},
    );

    # shading
    my $old_shading = $old_fmt->{Fill};
    my @shading_fields = qw(pattern fg_color bg_color);
    for my $idx (0..$#shading_fields) {
        $new_fmt{ $shading_fields[$idx] } = $old_shading->[$idx]
            if (defined $old_shading->[$idx]);
    }

    # if pattern is 'solid', Excel swaps fgColor and bgColor. This unswaps.
    if ($new_fmt{pattern} == 1) {
        @new_fmt{qw(bg_color fg_color)} = @new_fmt{qw(fg_color bg_color)};
    }

    # alignment
    # halign numbers match up, valign numbers are off by one
    my ($old_halign, $old_valign) = @{$old_fmt}{qw(AlignH AlignV)};
    $new_fmt{text_h_align} = $old_halign;
    $new_fmt{text_v_align} = defined($old_valign) ? $old_valign+1 : 0;

    # borders
    my $old_border_style = $old_fmt->{BdrStyle};
    my $old_border_color = $old_fmt->{BdrColor};
    my @sides = qw(left right top bottom);
    for my $idx (0..$#sides) {
        my $side = $sides[$idx];
        $new_fmt{$side} = $old_border_style->[$idx] if ($old_border_style->[$idx]);
        $new_fmt{"${side}_color"} = $old_border_color->[$idx] if ($old_border_color->[$idx]);
    }

    return \%new_fmt;
}



1;
__END__