File Coverage

blib/lib/P4/OO/Client.pm

Criterion	Covered	Total	%
statement	6	17	35.2
branch	0	2	0.0
condition	0	3	0.0
subroutine	2	5	40.0
pod	0	3	0.0
total	8	30	26.6

######################################################################
#  Copyright (c)2010-2011, David L. Armstrong.
#
#  P4::OO::Client.pm
#
#  See COPYRIGHT AND LICENSE section in pod text below for usage
#   and distribution rights.
#
######################################################################

=head1 NAME

=head1 SYNOPSIS

=head1 DESCRIPTION

=cut


######################################################################
# Package Initialization
#
    package P4::OO::Client;
    our $VERSION = '0.00_02';
    use base 'P4::OO::_SpecObj';
    use strict;


######################################################################
# Globals
#
    # Subclasses must define SPECOBJ_TYPE
    sub SPECOBJ_TYPE { return( 'client' ); }


######################################################################
# Methods
#

sub getChanges
{
    my $self = shift();

    # Asking a Client for its changes is implemented as querying Changes filtered by Client
    my $p4Conn = $self->_getP4Connection();
    my $p4ChangeSet = $p4Conn->query( 'change', { 'client' => $self->_getSpecID() } );

    return( $p4ChangeSet );
}


sub getOpenedFiles
{
    my $self = shift();

    my $hashArgs = $self->_argsToHash( "getOpenedFiles", @_ );

    if( ! exists( $hashArgs->{'client'} )
     && ! exists( $hashArgs->{'allClients'} ) )
    {
        $hashArgs->{'client'} = $self;
    }

    my $p4Conn = $self->_getP4Connection();
    return( $p4Conn->runCommand( 'opened', $hashArgs ) );
}

######################################################################
# Standard authorship and copyright for documentation
#

=head1 AUTHOR

David L. Armstrong

=head1 COPYRIGHT AND LICENSE

P4::OO::Client is Copyright (c)2010-2011, David L. Armstrong.

 This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself, either Perl
version 5.8.8 or, at your option, any later version of Perl 5
you may have available.

=head1 SUPPORT AND WARRANTY

 This program is distributed in the hope that it will be
useful, but it is provided "as is" and without any expressed
or implied warranties.

=cut

1;