File: lvalue.t

package info (click to toggle)
libclass-accessor-classy-perl 0.9.1-2.1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 120 kB
  • sloc: perl: 818; makefile: 2
file content (34 lines) | stat: -rwxr-xr-x 448 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
#!/usr/bin/perl

use warnings;
use strict;

use Test::More qw(no_plan);

{
  package bar;
  use Class::Accessor::Classy;
  with 'new';
  lv 'foo';
  no  Class::Accessor::Classy;
}

{
my $bar = bar->new(foo => 2);
isa_ok($bar, 'bar');
can_ok($bar, 'foo');

is($bar->foo, 2);
is($bar->foo = 3, 3);
is($bar->foo, 3);
}

{
my $bar = bar->new;
isa_ok($bar, 'bar');
is($bar->foo, undef);
is($bar->foo = 3, 3);
is($bar->foo, 3);
}

# vim:ts=2:sw=2:et:sta