Yet Another CPAN Grep

C600 ( X/XY/XYF/C600-0.002.tar.gz, XYF, 2022; MetaCPAN )

C600/lib/C600.pm ( view source; MetaCPAN )

;
use warnings;

package C600;
{
    $C600::VERSION = '0.02';
}
use Encode;
use REST::Client;
use JSON;
use DBI;
use DateTime;
use DateTime::Format::Natural;
use DateTime::Format::Oracle;
use Data::Du

h !!";
	}

    my $init_headers = {
        Accept         => 'application/json',
        'Content-type' => 'application/json',
    };
	my $user_name = $_[1] || "admin";
	my $password  = $_[2] || "Lan

 . $client->responseContent()
      if $client->responseCode != 200;
    my $response      = from_json( $client->responseContent() );
    my $access_header = {
        'Content-Type' => 'application/x