File Coverage

blib/lib/WWW/MetaForge/GameMapData/Request.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	3	4	75.0
condition	2	5	40.0
subroutine	6	6	100.0
pod	1	1	100.0
total	32	36	88.8

package WWW::MetaForge::GameMapData::Request;
our $AUTHORITY = 'cpan:GETTY';
# ABSTRACT: HTTP request builder for MetaForge Game Map Data API
our $VERSION = '0.002';

use Moo;
use HTTP::Request;
use URI;
use namespace::clean;


has base_url => (
  is      => 'ro',
  default => 'https://metaforge.app/api/game-map-data',
);


sub _build_request {
  my ($self, %params) = @_;

  my $uri = URI->new($self->base_url);
  $uri->query_form(%params) if %params;

  return HTTP::Request->new(GET => $uri);
}

sub map_data {
  my ($self, %params) = @_;
  # tableID is required for arc-raiders map data
  $params{tableID} //= 'arc_map_data';
  # Accept 'map' as alias for 'mapID'
  $params{mapID} //= delete $params{map} if exists $params{map};
  return $self->_build_request(%params);
}


1;

__END__

=pod

=encoding UTF-8

=head1 NAME

WWW::MetaForge::GameMapData::Request - HTTP request builder for MetaForge Game Map Data API

=head1 VERSION

version 0.002

=head1 SYNOPSIS

    use WWW::MetaForge::GameMapData::Request;

    my $req = WWW::MetaForge::GameMapData::Request->new;

    # Build request for map data
    my $http_req = $req->map_data(map => 'Dam');

    # With type filter
    my $http_req = $req->map_data(map => 'Dam', type => 'loot');

=head1 DESCRIPTION

Builds L<HTTP::Request> objects for the MetaForge Game Map Data API.
Useful for integrating with async HTTP frameworks.

=head2 base_url

Base URL for the API. Defaults to C<https://metaforge.app/api/game-map-data>.

=head2 map_data

    my $http_req = $req->map_data(map => 'Dam');

Returns L<HTTP::Request> for fetching map marker data.

=head1 SUPPORT

=head2 Issues

Please report bugs and feature requests on GitHub at
L<https://github.com/Getty/p5-www-metaforge/issues>.

=head2 IRC

You can reach Getty on C<irc.perl.org> for questions and support.

=head1 CONTRIBUTING

Contributions are welcome! Please fork the repository and submit a pull request.

=head1 AUTHOR

Torsten Raudssus <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2026 by Torsten Raudssus.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut