CDDB

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "Pod::Coverage::TrustPod" : "0",
            "Test::Pod" : "1.41",
            "Test::Pod::Coverage" : "1.08"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "1.26",
            "Encode" : "2.51",
            "HTTP::Request" : "6.00",
            "IO::Socket" : "1.31",
            "LWP" : "6.05",
            "MIME::QuotedPrint" : "3.13",
            "Mail::Header" : "2.04",
            "Mail::Internet" : "2.04",
            "Sys::Hostname" : "1.11",
            "perl" : "5.001",
            "strict" : "0",
            "vars" : "0"
         }

META.yml  view on Meta::CPAN

dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300035, CPAN::Meta::Converter version 2.132140'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: CDDB
requires:
  Carp: 1.26
  Encode: 2.51
  HTTP::Request: 6.00
  IO::Socket: 1.31
  LWP: 6.05
  MIME::QuotedPrint: 3.13
  Mail::Header: 2.04
  Mail::Internet: 2.04
  Sys::Hostname: 1.11
  perl: 5.001
  strict: 0
  vars: 0
resources:

Makefile.PL  view on Meta::CPAN

  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => "6.30"
  },
  "DISTNAME" => "CDDB",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "CDDB",
  "PREREQ_PM" => {
    "Carp" => "1.26",
    "Encode" => "2.51",
    "HTTP::Request" => "6.00",
    "IO::Socket" => "1.31",
    "LWP" => "6.05",
    "MIME::QuotedPrint" => "3.13",
    "Mail::Header" => "2.04",
    "Mail::Internet" => "2.04",
    "Sys::Hostname" => "1.11",
    "strict" => 0,
    "vars" => 0
  },
  "TEST_REQUIRES" => {

lib/CDDB.pm  view on Meta::CPAN

	require MIME::QuotedPrint;
	$imported_mail = 1;
};

#------------------------------------------------------------------------------
# Determine whether we can use HTTP for requests and submissions.

my $imported_http = 0;
eval {
	require LWP;
	require HTTP::Request;
	$imported_http = 1;
};

#------------------------------------------------------------------------------
# Send a command.  If we're not connected, try to connect first.
# Returns 1 if the command is sent ok; 0 if there was a problem.

sub command {
	my $self = shift;
	my $str = join(' ', @_);