view release on metacpan or  search on metacpan

lib/Acme/Globus.pm  view on Meta::CPAN

=head3 B<get_key_path>

    These commands return and change the username and keypath you use to 
    connect to Globus.

=cut

sub new {
    my ( $class, $username, $key_path ) = @_ ;
    my $self = {} ;
    bless $self, $class ;
    $self->{username} = $username || 'none' ;
    $self->{key_path} = $key_path || 'none' ;
    return $self ;
    }

sub set_username {
    my ( $self, $username ) = @_ ;
    $self->{username} = $username ;
    }