removed stupid if example

diff --git a/examples/Perl6If.pm b/examples/Perl6If.pm
deleted file mode 100644 (file)
index 49b7f95..0000000
--- a/examples/Perl6If.pm
+++ /dev/null
@@ -1,28 +0,0 @@
-package SQL;
-use lib 'lib/';
-use Keyword qw/debug/;
-use Carp;
-use Data::Dumper;
-
-our $DBH;
-
-keyword if (if) {
-}
-
-parse if ($kd) {
-       my $stmt = $kd->strip_to_char('{');
-#      $kd->terminate;
-
-       my ($exp)  =~ /if\s+(.+)\s*{/;
-
-       $kd->line("if ($exp) {");
-
-       return $exp;
-}
-
-action sql ($exp) { 
-       return $exp;
-}
-
-
-1;

diff --git a/t/usecase/if.t b/t/usecase/if.t
deleted file mode 100644 (file)
index fa5c515..0000000
--- a/t/usecase/if.t
+++ /dev/null
@@ -1,17 +0,0 @@
-use Test::More qw/no_plan/;
-use strict;
-use warnings;
-use lib 'examples/';
-use Perl6If;
-use Data::Dumper;
-
-ok 1;
-
-if 1 {
-       ok 1 ;
-}
-else {
-       nok 1;
-}
-
-ok 1;