File Coverage

blib/lib/CSS/Yamaantaka/RotateR.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	4	0.0
total	26	32	81.2

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

package CSS::Yamaantaka::RotateR;

use strict;
#use warnings;
use base qw(
    CSS::Yamaantaka::_NoReverseLR
    CSS::Yamaantaka::_ReverseGD
    CSS::Yamaantaka::_SwapHV
);

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

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

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

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

1;