legacy/lib/Vss2Svn.pm

   1 ###############################################################################
   2 #                           package Vss2Svn                                   #
   3 ###############################################################################
   4
   5 package Vss2Svn;
   6
   7 require 5.005_62;
   8 use strict;
   9 use warnings;
  10
  11 use File::Path;
  12 use File::Copy;
  13
  14 use Carp;
  15
  16 our $VERSION = '1.00';
  17
  18 ###############################################################################
  19 #  set_user
  20 ###############################################################################
  21 sub set_user {
  22     my($self, $user, $passwd) = @_;
  23
  24     $self->{user} = $user;
  25
  26     {
  27         no warnings 'uninitialized'; # we want to undef passwd if none passed
  28         $self->{passwd} = $passwd unless $passwd eq '';
  29     }
  30
  31 }  # End set_user
  32
  33
  34 1;