From d219a89d8d6ecc553851687967473665a78c77c8 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sun, 13 Feb 2011 18:47:12 +0000 Subject: some more notes on an optimizer --- lib/Tree/Transform/XSLTish/Optimizer/StructMatcher.pm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 lib/Tree/Transform/XSLTish/Optimizer/StructMatcher.pm (limited to 'lib/Tree/Transform/XSLTish/Optimizer/StructMatcher.pm') 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; -- cgit v1.2.3