From 86476983d21b7830a4f974f277e91b748542669a Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 10 Oct 2011 19:19:22 -0500
Subject: tired of testing this with old moose versions

---
 lib/Bread/Board/Declare/Meta/Role/Accessor.pm | 26 --------------------------
 1 file changed, 26 deletions(-)
 delete mode 100644 lib/Bread/Board/Declare/Meta/Role/Accessor.pm

(limited to 'lib/Bread/Board/Declare/Meta/Role/Accessor.pm')

diff --git a/lib/Bread/Board/Declare/Meta/Role/Accessor.pm b/lib/Bread/Board/Declare/Meta/Role/Accessor.pm
deleted file mode 100644
index e38236b..0000000
--- a/lib/Bread/Board/Declare/Meta/Role/Accessor.pm
+++ /dev/null
@@ -1,26 +0,0 @@
-package Bread::Board::Declare::Meta::Role::Accessor;
-use Moose::Role;
-
-around _inline_get => sub {
-    my $orig = shift;
-    my $self = shift;
-    my ($instance) = @_;
-
-    my $attr = $self->associated_attribute;
-
-    return 'do {' . "\n"
-             . 'my $val;' . "\n"
-             . 'if (' . $self->_inline_has($instance) . ') {' . "\n"
-                 . '$val = ' . $self->$orig($instance) . ';' . "\n"
-             . '}' . "\n"
-             . 'else {' . "\n"
-                 . '$val = ' . $instance . '->get_service(\'' . $attr->name . '\')->get;' . "\n"
-                 . $self->_inline_check_constraint('$val')
-             . '}' . "\n"
-             . '$val' . "\n"
-         . '}';
-};
-
-no Moose::Role;
-
-1;
-- 
cgit v1.2.3-54-g00ecf