diff options
Diffstat (limited to 'lib/Tree/Transform/XSLTish/Optimizer/StructMatcher.pm')
-rw-r--r-- | lib/Tree/Transform/XSLTish/Optimizer/StructMatcher.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/Tree/Transform/XSLTish/Optimizer/StructMatcher.pm b/lib/Tree/Transform/XSLTish/Optimizer/StructMatcher.pm new file mode 100644 index 0000000..56b19c1 --- /dev/null +++ b/lib/Tree/Transform/XSLTish/Optimizer/StructMatcher.pm @@ -0,0 +1,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; |