File Coverage

blib/lib/CSS/Yamaantaka/_Mirror.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition	2	3	66.6
subroutine	5	5	100.0
pod	0	4	0.0
total	23	28	82.1

#-*- perl -*-
#-*- coding: us-ascii -*-

package CSS::Yamaantaka::_Mirror;

use strict;
#use warnings;

sub fixBoxDirectionPart {
    my $direction = $_[1];
    return {
	'right' => 'left',
	'left'  => 'right',
	}->{$direction} ||
	$direction;
}

sub fixCursorPositions {
    my $direction = $_[1];
    $direction =~ tr/ew/we/;
    return $direction;
}

sub reorderFourPartNotation {
    shift;
    my @part = @_;
    @part = @part[0, 3, 2, 1];
    return @part;
}

sub reorderBorderRadiusSubparts {
    shift;
    my @part = @_;
    @part = @part[1, 0, 3, 2];
    return @part;
}

1;