X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FExcel%2FTemplate%2FElement%2FMergeRange.pm;fp=lib%2FExcel%2FTemplate%2FElement%2FMergeRange.pm;h=ed221f3d3f48750ed9a4e49f17baa40fc3561e86;hb=2feb13f6ff44c67bf8a2acfa1eea15ad20e3bb86;hp=5b42714b826d29d3ff01e18aa153d28258788b48;hpb=0503839555095e784f15b114b840597edd06b96c;p=p5sagit%2FExcel-Template.git diff --git a/lib/Excel/Template/Element/MergeRange.pm b/lib/Excel/Template/Element/MergeRange.pm index 5b42714..ed221f3 100644 --- a/lib/Excel/Template/Element/MergeRange.pm +++ b/lib/Excel/Template/Element/MergeRange.pm @@ -13,13 +13,13 @@ BEGIN { sub render { my $self = shift; my ($context) = @_; - + my $ref_name = $context->resolve($self, 'REF'); my @refs = $context->get_all_references( $ref_name ); (@refs) - || die "You must specify a ref for MERGE_RANGE"; - + || die "You must specify a ref for MERGE_RANGE"; + my $range = Excel::Template::Element::Range->_join_refs(@refs); # NOTE: @@ -28,7 +28,7 @@ sub render { # mark any format used in a merged cell # as being specifically for a merged cell # and therefore not usable elsewhere. - + my $old_format = $context->active_format; my %values; @@ -39,15 +39,15 @@ sub render { my $format = $context->format_object->copy( $context, $old_format, %values, ); - $context->active_format($format); + $context->active_format($format); - $context->active_worksheet->merge_range( - $range, - $context->get($self, 'TEXT'), + $context->active_worksheet->merge_range( + $range, + $context->get($self, 'TEXT'), $format, ); - - $context->active_format($old_format); + + $context->active_format($old_format); return 1; }