lib/SGN/View/Mason/CrossReference.pm

   1 package SGN::View::Mason::CrossReference;
   2 use strict;
   3 use warnings;
   4
   5 use Carp;
   6
   7 use base 'Exporter';
   8 our @EXPORT_OK = qw( resolve_xref_component );
   9
  10 sub resolve_xref_component {
  11     my ( $m, $feature, $comp_pattern ) = @_;
  12
  13     for my $fname ( $feature->feature_name, 'default' ) {
  14         my $comp = $comp_pattern;
  15         $comp =~ s/(?<!%)%f/$fname/g;
  16
  17         return $comp if $m->comp_exists( $comp );
  18     }
  19
  20     croak "Cannot find Mason component for pattern '$comp_pattern' sitefeature ".$feature->feature_name;
  21 }
  22
  23
  24 1;