From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 6 Dec 2009 19:30:58 +0000 (-0500)
Subject: first sketch of Devel::Declare code
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=48972854790a1af6ed892edad6d761f8da2bef3d;p=gitmo%2FMooseX-Antlers.git

first sketch of Devel::Declare code
---

diff --git a/lib/MooseX/Antlers/DevelDeclareHandler.pm b/lib/MooseX/Antlers/DevelDeclareHandler.pm
new file mode 100644
index 0000000..5096703
--- /dev/null
+++ b/lib/MooseX/Antlers/DevelDeclareHandler.pm
@@ -0,0 +1,63 @@
+package MooseX::Antlers::DevelDeclareHandler;
+
+use Method::Signatures::Simple ();
+use B::Compiling;
+use B::Hooks::EndOfScope;
+
+my %fix;
+my %names;
+
+my $orig_block = Devel::Declare::Context::Simple->can('inject_if_block');
+
+*Devel::Declare::Context::Simple::inject_if_block = sub {
+  $orig_block->(@_);
+  my $line = $_[0]->get_linestr;
+  $line =~ s/BEGIN {.*?};//;
+  push(@{$fix{PL_compiling->file}}, [ PL_compiling->line, $line ]);
+};
+
+my $orig_scope = Devel::Declare::Context::Simple->can('inject_scope');
+
+*Devel::Declare::Context::Simple::inject_scope = sub {
+  my $self = $_[0];
+  $orig_scope->(@_);
+  on_scope_end {
+    push(@{$fix{PL_compiling->file}}, [ PL_compiling->line, $self->get_linestr ]);
+  };
+};
+
+my $orig_install = Devel::Declare::MethodInstaller::Simple->can('install');
+
+*Devel::Declare::MethodInstaller::Simple::install = sub {
+  push(@{$names{PL_compiling->file}}, $_[1]);
+  $orig_install->(@_);
+};
+
+sub emit_result {
+  my ($file) = @_;
+  use IO::All qw(io);
+  my @self = io($file)->getlines;
+  my @methods = @{$names{$file}};
+  my $method_section = q!
+use Sub::Name ();
+my ($meth, @methods);
+BEGIN {
+  my @methods = qw(!.join(' ', @methods).q!);
+  $meth = sub (&) {
+    my $name = shift(@methods);
+    *$name = Sub::Name::subname $name => $_[0];
+  };
+}
+use MooseX::Antlers::StealImport
+  'Method::Signatures::Simple' => {
+    method => $meth
+  };
+!;
+  foreach my $f (@{$fix{$file}}) {
+    my ($line, $linestr) = @$f;
+    $self[$line-1] = $linestr;
+  }
+  return join("", $method_section, @self);
+}
+
+1;
diff --git a/notes/dd-example-compiler b/notes/dd-example-compiler
new file mode 100644
index 0000000..886320f
--- /dev/null
+++ b/notes/dd-example-compiler
@@ -0,0 +1,7 @@
+use MooseX::Antlers::DevelDeclareHandler;
+
+do 'method';
+
+use IO::All qw(io);
+
+io('compiled') < MooseX::Antlers::DevelDeclareHandler::emit_result('method');
diff --git a/notes/dd-example-input b/notes/dd-example-input
new file mode 100644
index 0000000..94d4142
--- /dev/null
+++ b/notes/dd-example-input
@@ -0,0 +1,7 @@
+use Method::Signatures::Simple;
+
+method foo ($bar) { # foo
+  warn $bar;
+}
+
+main->foo("yay");