1 2 3 4 5 6 7 8 9 10 11 12 13 14
package URI::ssh; use strict; use warnings; use parent 'URI::_login'; # ssh://[USER@]HOST[:PORT]/SRC sub default_port { 22 } sub secure { 1 } 1;