From: Robin Edwards <robin.ge@gmail.com>
Date: Tue, 6 Apr 2010 15:52:42 +0000 (+0100)
Subject: removed stupid if example
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6c2d8b090e5104bb0bb1a67e0e48165edcf30292;p=p5sagit%2FDevel-Declare-Keyword.git

removed stupid if example
---

diff --git a/examples/Perl6If.pm b/examples/Perl6If.pm
deleted file mode 100644
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
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;