File Coverage

blib/lib/Apache/Session/Browseable/_common.pm

Criterion	Covered	Total	%
statement	40	42	95.2
branch	11	14	78.5
condition	2	3	66.6
subroutine	8	8	100.0
pod	0	2	0.0
total	61	69	88.4

package Apache::Session::Browseable::_common;

use strict;
use AutoLoader 'AUTOLOAD';

our $VERSION = '1.0';

sub _tabInTab {
    my ( $class, $t1, $t2 ) = @_;

    # if no fields are required, return 0
    return 0 unless(@$t1 and @$t2);
    foreach my $f (@$t1) {
        unless ( grep { $_ eq $f } @$t2 ) {
            return 0;
        }
    }
    return 1;
}

sub _fieldIsIndexed {
    my ( $class, $args, $field ) = @_;
    my $index =
      ref( $args->{Index} ) ? $args->{Index} : [ split /\s+/, $args->{Index} ];
    return ( grep { $_ eq $field } @$index );
}

1;
__END__