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;
use Carp 'confess';
- BankAccount->meta->add_attribute('$:balance' => (
+ BankAccount->meta->add_attribute('balance' => (
accessor => 'balance',
init_arg => 'balance',
default => 0
use base 'BankAccount';
- CheckingAccount->meta->add_attribute('$:overdraft_account' => (
+ CheckingAccount->meta->add_attribute('overdraft_account' => (
accessor => 'overdraft_account',
init_arg => 'overdraft',
));