File Coverage

blib/lib/CSS/Janus.pm
Criterion Covered Total %
statement 15 15 100.0
branch 4 4 100.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             #-*- perl -*-
2             #-*- coding: us-ascii -*-
3              
4             package CSS::Janus;
5              
6 34     34   374252 use strict;
  34         80  
  34         1125  
7             #use warnings;
8 34     34   20768 use CSS::Yamaantaka;
  34         96  
  34         1624  
9              
10 34     34   305 use vars qw(@ISA $VERSION);
  34         240  
  34         5465  
11             $VERSION = '0.04_02';
12             @ISA = qw(CSS::Yamaantaka);
13              
14             sub new {
15 105     105 1 44476 my $pkg = shift;
16 105         235 my %opts = @_;
17              
18 105 100       404 $opts{'flip_url'} = $opts{'swap_left_right_in_url'}
19             if defined $opts{'swap_left_right_in_url'};
20 105 100       393 $opts{'ignore_bad_bgp'} = 0
21             unless defined $opts{'ignore_bad_bgp'};
22              
23 105         1001 my $self = $pkg->SUPER::new(@_, 'adaptor' => 'CSS::Yamaantaka::MirrorH');
24 105         437 bless $self => $pkg;
25             }
26              
27             1;
28              
29             __END__