summaryrefslogtreecommitdiffstats
path: root/t/002-custom-exporter.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2010-06-24 13:54:24 -0500
committerJesse Luehrs <doy@tozt.net>2010-06-24 14:35:37 -0500
commitc79f16aa7fdad589f8b29b0a9d4ae39b66f6efbe (patch)
treeb82ea553ebf56570a0ec19f6a7f20d66b0cc025e /t/002-custom-exporter.t
parente487cbac42aac4f6bded38ffc91b66e1d1d1ddc6 (diff)
downloadmoosex-attribute-shorthand-c79f16aa7fdad589f8b29b0a9d4ae39b66f6efbe.tar.gz
moosex-attribute-shorthand-c79f16aa7fdad589f8b29b0a9d4ae39b66f6efbe.zip
convert to new dzil stuff
Diffstat (limited to 't/002-custom-exporter.t')
-rw-r--r--t/002-custom-exporter.t45
1 files changed, 0 insertions, 45 deletions
diff --git a/t/002-custom-exporter.t b/t/002-custom-exporter.t
deleted file mode 100644
index b4efe98..0000000
--- a/t/002-custom-exporter.t
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-use Test::Exception;
-
-BEGIN {
- package Foo::Exporter;
- use Moose ();
- use MooseX::Attribute::Shorthand ();
- use Moose::Exporter;
-
- my ($import) = Moose::Exporter->build_import_methods(
- also => ['Moose'],
- install => ['unimport'],
- );
-
- sub import {
- my $class = caller;
- Moose->init_meta(for_class => $class);
- MooseX::Attribute::Shorthand->import(
- -for_class => $class,
- string => {
- is => 'ro',
- isa => 'Str',
- default => sub { $_[1] },
- -meta_attr_options => { isa => 'Str' },
- },
- );
- goto $import;
- }
-}
-
-{
- package Foo;
- BEGIN { Foo::Exporter->import }
-
- has foo => (string => 'FOO');
-}
-
-my $foo = Foo->new;
-is($foo->foo, 'FOO', "got correct options");
-dies_ok { $foo->foo('lsdkfj') } "got correct options";
-
-done_testing;