File Coverage

blib/lib/Mojo/Collection/Role/Extra.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	17	17	100.0

package Mojo::Collection::Role::Extra ;
$Mojo::Collection::Role::Extra::VERSION = '0.015';
use Role::Tiny;

sub common {
  my $c = shift;
  my $size = $c->size;
  my $current_node = $c->first;
  my $parent_node;
  my $enclosed;
  do  {
    $parent_node = $current_node->parent;
    $enclosed = $c->grep(sub { $parent_node->is_ancestor_to($_) } );
    $current_node = $parent_node;
  } while ($size > $enclosed->size);

  return $parent_node;
}

1; # Magic true value
# ABSTRACT: provides methods for use with Mojo::DOM::Role::Analyzer

__END__