rephrase skip_all test

[gitmo/Class-MOP.git] / t / 017_add_method_modifier.t

diff --git a/t/017_add_method_modifier.t b/t/017_add_method_modifier.t
index 646c396..4f5ed4f 100644 (file)
--- a/t/017_add_method_modifier.t
+++ b/t/017_add_method_modifier.t
@@ -1,14 +1,10 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 20;
+use Test::More tests => 19;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Class::MOP');
-}
+use Class::MOP;
 
 {
     package BankAccount;
@@ -19,7 +15,7 @@ BEGIN {
         
     use Carp 'confess';
     
-    BankAccount->meta->add_attribute('$:balance' => (
+    BankAccount->meta->add_attribute('balance' => (
         accessor => 'balance',
                init_arg => 'balance',
         default  => 0
@@ -48,7 +44,7 @@ BEGIN {
 
        use base 'BankAccount';
        
-    CheckingAccount->meta->add_attribute('$:overdraft_account' => (
+    CheckingAccount->meta->add_attribute('overdraft_account' => (
         accessor => 'overdraft_account',
                init_arg => 'overdraft',
     ));