lib/Tree/Transform/XSLTish/Optimizer/StructMatcher.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package Tree::Transform::XSLTish::Optimizer::StructMatcher; 
use struct;
use warnings;
use Scalar::Util qw(blessed looks_like_number reftype);
 
sub match {
    my ($datum,$struct) = @_;
 
    my $dc=blessed($datum);my $sc=blessed($struct);
    my $dr=reftype($datum);my $sr=reftype($struct);
 
    
}
 
1;