[gitmo/Class-MOP.git] / t / 024_attribute_initializer.t

#!/usr/bin/perl

use strict;
use warnings;

use Scalar::Util 'blessed', 'reftype';

use Test::More tests => 4;

BEGIN {
    use_ok('Class::MOP');
}

=pod

This checks that the initializer is used to set the initial value.

=cut

{
    package Foo;
    use metaclass;
    
    Foo->meta->add_attribute('bar' => 
        reader => 'get_bar',
        writer => 'set_bar',
        initializer => sub {
          my ($self, $value, $name, $callback) = @_;
          $callback->($value * 2);
        },
    );  
}

can_ok('Foo', 'get_bar');
can_ok('Foo', 'set_bar');    

my $foo = Foo->meta->construct_instance(bar => 10);
is(
  $foo->get_bar,
  20,
  "initial argument was doubled as expected",
);
Commit	Line	Data
0ab65f99	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Scalar::Util 'blessed', 'reftype';
	7
	8	use Test::More tests => 4;
	9
	10	BEGIN {
	11	use_ok('Class::MOP');
	12	}
	13
	14	=pod
	15
	16	This checks that the initializer is used to set the initial value.
	17
	18	=cut
	19
	20	{
	21	package Foo;
	22	use metaclass;
	23
	24	Foo->meta->add_attribute('bar' =>
	25	reader => 'get_bar',
	26	writer => 'set_bar',
	27	initializer => sub {
ed8563cb	28	my ($self, $value, $name, $callback) = @_;
0ab65f99	29	$callback->($value * 2);
	30	},
	31	);
	32	}
	33
	34	can_ok('Foo', 'get_bar');
	35	can_ok('Foo', 'set_bar');
	36
	37	my $foo = Foo->meta->construct_instance(bar => 10);
	38	is(
	39	$foo->get_bar,
	40	20,
	41	"initial argument was doubled as expected",
	42	);
	43