package Lab::Moose::Connection::WWW;
$Lab::Moose::Connection::WWW::VERSION = '3.823';
#ABSTRACT: Connection with URL requests

use v5.20;


use Moose;
use MooseX::Params::Validate;
use Moose::Util::TypeConstraints qw(enum);
use Carp;

use Lab::Moose::Instrument qw/timeout_param read_length_param/;

use LWP::Simple;

use namespace::autoclean;


has ip => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);

has port => (
    is       => 'ro',
    isa      => 'Lab::Moose::PosNum',
    required => 1,
);

sub Read {
    my ( $self, %args ) = validated_hash(
        \@_,
        command => { isa => 'Str' },
    );
    my $command = $args{'command'};
    my $url = "http://$self->ip():$self->port()$command";
    return get( $url );
}

sub Write {
    my ( $self, %args ) = validated_hash(
        \@_,
        command => { isa => 'Str' },
    );
    my $command = $args{'command'};
    my $url = "http://$self->ip():$self->port()$command";
    get( $url );
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Lab::Moose::Connection::WWW - Connection with URL requests

=head1 VERSION

version 3.823

=head1 SYNOPSIS

 use Lab::Moose
 
 my $instrument = instrument(
     type => 'random_instrument',
     connection_type => 'WWW',
     connection_options => {ip => 172.22.11.2, port => 8002},
 );

=head1 DESCRIPTION

This module provides a connection for devices with an integrated web
server.

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2022 by the Lab::Measurement team; in detail:

  Copyright 2022       Mia Schambeck


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
