Skip to content

Commit bed777f

Browse files
committed
fix format tests
1 parent 0821194 commit bed777f

File tree

2 files changed

+7
-7
lines changed

2 files changed

+7
-7
lines changed

lib/Graphics/Toolkit/Color/Space.pm

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -39,11 +39,11 @@ sub delta { shift->shape->delta( @_ ) } # @+values1, @+valu
3939

4040
########################################################################
4141

42-
sub format { $_[0]{'format'} }
43-
sub add_formatter { shift->format->add_formatter(@_) } # ~format_name, &formatter --> &|
44-
sub add_deformatter { shift->format->add_deformatter(@_) } # ~format_name, &deformatter --> &|
45-
sub format { shift->format->format(@_) } # @+values, ~format_name -- @~suffix --> $*color
46-
sub deformat { shift->format->deformat(@_) } # $*color-- @~suffix --> @+values
42+
sub form { $_[0]{'format'} }
43+
sub add_formatter { shift->form->add_formatter(@_) } # ~format_name, &formatter --> &|
44+
sub add_deformatter { shift->form->add_deformatter(@_) } # ~format_name, &deformatter --> &|
45+
sub format { shift->form->format(@_) } # @+values, ~format_name -- @~suffix --> $*color
46+
sub deformat { shift->form->deformat(@_) } # $*color-- @~suffix --> @+values
4747

4848
#### conversion ########################################################
4949

t/04_space_format.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -164,8 +164,8 @@ is( $obj->has_format('pstring'), 1, 'there is now a pstring format');
164164
is( $name, undef, 'found no deformatter for pstring format');
165165
is( $obj->has_deformat('pstring'), 0, 'there is no pstring deformatter');
166166

167-
my $fref = $obj->add_deformatter('pstring', sub { $_[0]->match_number_values( [split(',',substr($_[1],1))] ); });
168-
is( ref $fref, 'CODE', 'added deformatter');
167+
my $dref = $obj->add_deformatter('pstring', sub { $_[0]->match_number_values( [split(',',substr($_[1],1))] ); });
168+
is( ref $dref, 'CODE', 'added deformatter');
169169

170170
is( $obj->has_deformat('pstring'), 1, 'there is now a pstring deformatter');
171171
($vals, $name) = $obj->deformat( '%0,2.2,-3' );

0 commit comments

Comments
 (0)