… | … | ||
---|---|---|---|
25 | $_[0] | 25 | $_[0] |
26 | } | 26 | } |
27 | 27 | ||
28 | sub new { | 28 | sub new { |
29 | my ($class, %arg) = @_; | 29 | my ($class, %arg) = @_; |
30 | |||
31 | $arg{ob} = $arg{pl}->ob; | ||
30 | 32 | ||
31 | my $self = bless { | 33 | my $self = bless { |
32 | %arg, | 34 | %arg, |
33 | }, $class; | 35 | }, $class; |
34 | 36 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |