Select Code to Download

package Domain;

...
#etc.

1

package DomainManager;

...
}

1

package DomainManagerOutput;

...
sub getText { ... }

1

#!/usr/bin/perl -T

...
      print "[ OK ]" . $_->getText . "\n";
   }
}