DB<1> n main::(basic.t:8): require_ok 'Astro::SIMBAD::Client' main::(basic.t:9): or BAIL_OUT q{Can't do much testing if can't load module}; DB<1> n ok 1 - require Astro::SIMBAD::Client; main::(basic.t:12): my $smb = Astro::SIMBAD::Client->new (); DB<1> n main::(basic.t:14): ok $smb, 'Instantiate Astro::SIMBAD::Client' main::(basic.t:15): or BAIL_OUT "Test aborted: $@"; DB<1> n ok 2 - Instantiate Astro::SIMBAD::Client main::(basic.t:17): is $smb->get( 'debug' ), 0, 'Initial debug setting is 0'; DB<1> n ok 3 - Initial debug setting is 0 main::(basic.t:19): $smb->set( debug => 1 ); DB<1> p debug debug DB<2> p $smb->get('debug') 0 DB<3> n main::(basic.t:21): is $smb->get( 'debug' ), 1, 'Able to set debug to 1'; DB<3> n ok 4 - Able to set debug to 1 main::(basic.t:23): $smb->set( debug => 0 ); DB<3> p $smb->get('debug') 1 24 25 { 26: my $scheme = Astro::SIMBAD::Client::_is_scheme_valid( 27 $ENV{ASTRO_SIMBAD_CLIENT_SCHEME} ) ? 28 'http' : 29: lc $ENV{ASTRO_SIMBAD_CLIENT_SCHEME}; DB<6> n main::(basic.t:26): my $scheme = Astro::SIMBAD::Client::_is_scheme_valid( main::(basic.t:27): $ENV{ASTRO_SIMBAD_CLIENT_SCHEME} ) ? main::(basic.t:28): 'http' : DB<6> c ok 5 - Default scheme is 'http' # http://simbad.u-strasbg.fr/: SIMBAD4 1.8 - 2022-12 1..5 Debugged program terminated. Use q to quit or R to restart, use o inhibit_exit to avoid stopping after program termination, h q, h R or h o to get additional info. DB<6>