File Coverage

lib/Google/RestApi/SheetsApi4/Request/Spreadsheet/Worksheet/Range.pm

Criterion	Covered	Total	%
statement	121	206	58.7
branch	14	20	70.0
condition	14	18	77.7
subroutine	64	106	60.3
pod	0	97	0.0
total	213	447	47.6

our $VERSION = '1.0.2';

use Google::RestApi::Setup;

use Scalar::Util qw( looks_like_number );
use aliased "Google::RestApi::SheetsApi4::Range";
use parent "Google::RestApi::SheetsApi4::Request::Spreadsheet::Worksheet";







  shift->user_entered_format(
    {
      numberFormat => {
        type => shift,
        defined $_[0] ? (pattern => shift) : ()
      }
    },
  );
}






  my $self = shift;
  my ($format, $fields) = @_;
  ($fields) = each %$format if !defined $fields;
  $self->user_entered_format(
     { textFormat => $format },
    'textFormat.' . $fields,
  );
}

  my $self = shift;
  my ($format, $fields) = @_;
  ($fields) = each %$format if !defined $fields;
  $self->repeat_cell(
    cell => {
      userEnteredFormat => $format,
    },
    fields => 'userEnteredFormat.' . $fields,
  );
  return $self;
}

  my $self = shift;

  state $check = compile_named(
    cell   => HashRef,
    fields => Str, { optional => 1 },
  );
  my $p = $check->(@_);

  my $cell = $p->{cell};
  my $fields = $p->{fields} || join(',', sort keys %$cell);

  $self->batch_requests(
    repeatCell => {
      range  => $self->range_to_index(),
      cell   => $cell,
      fields => $fields,
    },
  );

  return $self;
}

  my $self = shift;
  $self->center()->bold()->white()->bk_black()->font_size(12);
  return $self;
}



# allows:
#   bd_red()  turns it all on
#   bd_red(0)  turns it all off
#   bd_red(0.3, 'top')
#   bd_red(0.3)
#   bd_red('top')
  my $self = shift;
  my $color = shift;
  my $value;
  $value = shift if looks_like_number($_[0]);
  $value //= 1;
  return $self->bd_color({ $color => $value }, @_);
}

# borders can be set for a range or each individual cell
# in a range. bd_repeat_cell is turned on to redirect
# border calls to repeat_cell above.
  my $self = shift;
  $self->{bd_repeat_cell} = shift;
  $self->{bd_repeat_cell} //= 1; # bd_repeat_cell() turns it on, bd_repeat_cell(0) turns it off.
  delete $self->{bd_repeat_cell} if !$self->{bd_repeat_cell};
  return $self;
}

  my $self = shift;

  # allow an array of borders to be passed, recurse with each one.
  my %p = @_;
  if ($p{border} && ref($p{border}) eq 'ARRAY') {
    $self->borders(border => $_, properties => $p{properties})
      foreach (@{ $p{border} });
    return $self;
  }

  state $check = compile_named(
    border     =>
      StrMatch[qr/^(top|bottom|left|right|around|vertical|horizontal|inner|all|)$/],
      { default => 'around' },
    properties => HashRef,
  );
  my $p = $check->(@_);
  $p->{border} ||= 'around';

  # recurse with border groups.
  my %groups = (
    around => [qw(top bottom left right)],
    inner  => [qw(vertical horizontal)],
    all    => [qw(around inner)],
  );
  my $group = $groups{ $p->{border} };
  if ($group) {
    $self->borders(border => $_, properties => $p->{properties})
      foreach (@$group);
    return $self;
  }

  # now we finally get to the guts of the borders.
  # if these borders are to be part of repeatCell request, redirect
  # the borders to it.
  if ($self->{bd_repeat_cell}) {
    LOGDIE "Cannot use vertical|horizontal|inner when bd_repeat_cell is turned on"
      if $p->{border} =~ /^(vertical|horizontal|inner)$/;
    return $self->user_entered_format(
      {
        borders => {
          $p->{border} => $p->{properties},
        }
      },
    );
  }

  # change vertical to innerVertical. horizontal same same.
  $p->{border} =~ s/^(vertical|horizontal)$/"'inner' . '" . ucfirst($1) . "'"/ee;

  $self->batch_requests(
    updateBorders => {
      range        => $self->range_to_index(),
      $p->{border} => $p->{properties},
    }
  );

  return $self;
}

  my $self = shift;

  state $check = compile_named(
    merge_type => DimColRow | DimAll,
  );
  my $p = $check->(@_);
  $p->{merge_type} = dims_all($p->{merge_type});

  $self->batch_requests(
    mergeCells => {
      range     => $self->range_to_index(),
      mergeType => "MERGE_$p->{merge_type}",
    },
  );

  return $self;
}

  my $self = shift;
  $self->batch_requests(
    unmergeCells => {
      range => $self->range_to_index(),
    },
  );
  return $self;
}

  my $self = shift;

  state $check = compile_named(
    dimension => Str,
    inherit   => Bool, { default => 0 }
  );
  my $p = $check->(@_);

  $self->batch_requests(
    insertDimension => {
      range             => $self->range_to_dimension($p->{dimension}),
      inheritFromBefore => $p->{inherit},
    },
  );

  return $self;
}

  my $self = shift;

  state $check = compile_named(
    dimension => Str,
  );
  my $p = $check->(@_);

  $self->batch_requests(
    insertRange    => {
      range => $self->range_to_dimension($p->{dimension}),
    },
    shiftDimension => $p->{dimension},
  );

  return $self;
}

  my $self = shift;

  state $check = compile_named(
    dimension   => Str,
    destination => HasMethods['range_to_index'],
  );
  my $p = $check->(@_);

  $self->batch_requests(
    insertDimension => {
      range            => $self->range_to_dimension($p->{dimension}),
      destinationIndex => $p->{destination},
    },
  );

  return $self;
}

  my $self = shift;

  state $check = compile_named(
    destination => HasMethods['range_to_index'],
    type        => Str, { default => 'normal' },
    orientation => Str, { default => 'normal' },
  );
  my $p = $check->(@_);
  $p->{type} = "PASTE_" . uc($p->{type});
  $p->{orientation} = uc($p->{orientation});

  $self->batch_requests(
    copyPaste => {
      source      => $self->range_to_index(),
      destination => $p->{destination}->range_to_index(),
      type        => $p->{type},
      orientation => $p->{orientation},
    },
  );

  return $self;
}

  my $self = shift;

  state $check = compile_named(
    destination => HasMethods['range_to_index'],
    type        => Str, { default => 'normal' },
  );
  my $p = $check->(@_);
  $p->{type} = "PASTE_" . uc($p->{type});

  $self->batch_requests(
    cutPaste => {
      source      => $self->range_to_index(),
      destination => $p->{destination}->range_to_index(),
      type        => $p->{type},
    },
  );

  return $self;
}

  my $self = shift;

  state $check = compile_named(dimension => Str);
  my $p = $check->(@_);

  $self->batch_requests(
    deleteDimension => {
      range => $self->range_to_dimension($p->{dimension}),
    },
  );

  return $self;
}

  my $self = shift;

  state $check = compile_named(dimension => Str);
  my $p = $check->(@_);

  $self->batch_requests(
    deleteRange => {
      range => $self->range_to_dimension($p->{dimension}),
    },
    shiftDimension => $p->{dimension},
  );

  return $self;
}

  my $self = shift;

  state $check = compile_named(name => Str);
  my $p = $check->(@_);

  $self->batch_requests(
    addNamedRange => {
      namedRange => {
        name  => $p->{name},
        range => $self->range_to_index(),
      },
    }
  );

  return $self;
}

  my $self = shift;

  my $named = $self->named() or LOGDIE "Not a named range";
  $self->batch_requests(
    deleteNamedRange => {
      namedRangeId => $named,
    },
  );

  return $self;
}

  my $self = shift;
  return $self->SUPER::_clear(@_, $self->range_to_index());
}


1;


=head1 NAME

Google::RestApi::SheetsApi4::Request::Spreadsheet::Worksheet::Range - Build Google API's batchRequests for a Range.

=head1 DESCRIPTION

Deriving from the Request::Spreadsheet::Worksheet object, this adds the ability to create
requests that have to do with ranges (formatting, borders etc).

See the description and synopsis at Google::RestApi::SheetsApi4::Request.
and Google::RestApi::SheetsApi4.

=head1 AUTHORS

=over

=item

Robin Murray [e-mail]

=back

=head1 COPYRIGHT

Copyright (c) 2021, Robin Murray. All rights reserved.

This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.