Skip to content

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
...
Checking mergeability… Don’t worry, you can still create the pull request.
  • 1 commit
  • 1 file changed
  • 0 commit comments
  • 1 contributor
Showing with 32 additions and 0 deletions.
  1. +32 −0 lib/Magpie/Sugar.pm
View
32 lib/Magpie/Sugar.pm
@@ -0,0 +1,32 @@
+package Magpie::Sugar 1.0;
+
+use v5.10;
+use strict;
+use warnings;
+
+use Syntax::Collector -collect => q{
+use feature 0 ':5.10';
+use true 0;
+use utf8::all;
+use Moose 2.00;
+use Magpie::Constants 0;
+use Method::Signatures::Simple 0;
+use Try::Tiny 0;
+};
+
+sub IMPORT
+{
+ my ($class, %args) = @_;
+ my $caller = caller(0);
+
+ Method::Signatures::Simple::->install_methodhandler(
+ into => $caller,
+ name => 'handle',
+ invocant => '$self = shift; my $ctxt', # HACK ALERT!
+ );
+
+ eval "package $caller; extends '$args{-base}'"
+ if exists $args{-base};
+}
+
+1;

No commit comments for this range

Something went wrong with that request. Please try again.