$ perl -d 5.astro.pl

Loading DB routines from perl5db.pl version 1.55
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(5.astro.pl:9):	my $file = '/home/hogan/Documents/hogan/logs/3.log4perl.txt';
  DB<1> n                                                                       
main::(5.astro.pl:12):	my $log_conf4 = "/home/hogan/Documents/hogan/logs/conf_files/3.conf";
  DB<1> v                                                                       
9:	my $file = '/home/hogan/Documents/hogan/logs/3.log4perl.txt';
10 	
11 	# unlink $file or warn "Could not unlink $file: $!";
12==>	my $log_conf4 = "/home/hogan/Documents/hogan/logs/conf_files/3.conf";
13:	Log::Log4perl::init($log_conf4);    #info
14:	my $logger = Log::Log4perl->get_logger();
...

main::(5.astro.pl:39):	  my $planet2 = Astro::Coords->new( planet => $name );
  DB<6> $logger->debug( "This is debug");                                       
This is debug 
...
  DB<8> .                                                                       
main::(5.astro.pl:26):	  $planet->telescope(
main::(5.astro.pl:27):	    Astro::Telescope->new(
main::(5.astro.pl:28):	      Name => 'boise',
main::(5.astro.pl:29):	      Long => deg2rad(-116.2),    #43.615833, -116.201667
main::(5.astro.pl:30):	      Lat  => deg2rad(43.61),
main::(5.astro.pl:31):	      Alt  => 8321,               #meters above sea level boise
main::(5.astro.pl:32):	    )
main::(5.astro.pl:33):	  );
  DB<8> s                                                                       
Astro::Coord::ECI::Utils::deg2rad(/usr/local/share/perl/5.30.0/Astro/Coord/ECI/Utils.pm:545):
545:	sub deg2rad { return defined $_[0] ? $_[0] * PI / 180 : undef }
...
  DB<8> n                                                                       
Astro::Telescope::new(/usr/local/share/perl/5.30.0/Astro/Telescope.pm:182):
182:	  my $proto = shift;
  DB<8> n                                                                       
Astro::Telescope::new(/usr/local/share/perl/5.30.0/Astro/Telescope.pm:183):
183:	  my $class = ref($proto) || $proto;
  DB<8> v                                                                       
180 	
181 	sub new {
182:	  my $proto = shift;
183==>	  my $class = ref($proto) || $proto;
184 	
185:	  return undef unless @_;
186 	
187 	  # Create the new object
188:	  my $tel = bless {}, $class;
189 	
  DB<8> b 188                                                                   
  DB<9> c                                                                       
Astro::Telescope::new(/usr/local/share/perl/5.30.0/Astro/Telescope.pm:188):
188:	  my $tel = bless {}, $class;
  DB<9> n                                                                       
Astro::Telescope::new(/usr/local/share/perl/5.30.0/Astro/Telescope.pm:192):
192:	  $tel->_configure( @_ ) or return undef;
  DB<9> v                                                                       
189 	
190 	  # Configure it with the supplied telescope name
191 	  # or other arguments
192==>	  $tel->_configure( @_ ) or return undef;
193 	
194:	  return $tel;
195 	}
196 	
197 	=back
198 	
  DB<9> p @_                                                                    
NameboiseLong-2.02807259081741Lat0.761138086794727Alt8321
 ...
  DB<10> v                                                                      
217 	=cut
218 	
219 	sub new {
220==>	  my $class = shift;
221 	
222:	  my %args = @_;
223 	
224:	  my $obj;
225 	
226 	  # Always try for a planet object first if $args{planet} is used
  DB<10> b 224                                                                  
  DB<11> c                                                                      
Astro::Coords::new(/usr/local/share/perl/5.30.0/Astro/Coords.pm:224):
224:	  my $obj;
  DB<11> p @_                                                                   
planetMoon
  DB<12> c                                                                      
Moon	74.2622910906381	22.4512455528347 
Time is Sat Mar 20 01:00:14 2021 
Julian day is 2459293.7918287 
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<12> q