SVN-Mirror

 view release on metacpan or  search on metacpan

t/test_repo.dump  view on Meta::CPAN

== °e¥æ§ó°Ê ==
* °e¥æ§Ú­Ì©Ò§@ªº§ó°Ê
    % svn commit
* ¦b©R¥O¦C´£¨Ñ°e¥æ°T®§
    % svn commit -m "Commit log message"
* °e¥æ¤§«á, ¤u§@½Æ¥»¥Ø¿ý¤£·|¦Û°Ê§ó·s
----
== ÃöÁä¦r®i¶} ==
* ¦p¦ó¨Ï¥ÎÃöÁä¦r®i¶}
** ³]©wÀɮתº©Ê½è
  % svn propset svn:keywords Id foo.pl
** ¥i¨Ï¥ÎªºÃöÁä¦r
*** URL, HeadURL
*** Author, LastChangedBy
*** Date, LastChangedDate
*** Rev, LastChangedRevision
*** Id
----
== ÀÉ®×®w¥Ø¿ý¬[ºc ==

* ¨ä¤@

t/test_repo.dump  view on Meta::CPAN

K 12
svn:keywords
V 2
Id
PROPS-END
use SVN::Core;

package SVN::Client;
use SVN::Base(qw(Client svn_client_ checkout update switch add mkdir delete
                 commit status log blame diff merge cleanup relocate
                 revert resolved copy move revprop_set propset
                 proplist revvprop_list export ls cat import)); 

=head1 NAME

SVN::Client - Subversion client functions

=head1 SYNOPSIS

    use SVN::Client;
    my $ctx = new SVN::Client(

t/test_repo.dump  view on Meta::CPAN

Outputs the content of the file identified by path_or_url and revision to the
FILEHANDLE.  FILEHANLDE is a reference to a filehandle.  revision should be a
number or 'HEAD'.  pool is an optional parameter.

=cut

# import methods into our name space and wrap them in a closure
# to support method calling style $ctx->log()
foreach my $function (qw(checkout update switch add mkdir delete commit
                       status log blame diff merge cleanup relocate
                       revert resolved copy move revprop_set propset
                       proplist revvprop_list export ls cat import))
{

    my $real_function = \&{"SVN::_Client::svn_client_$function"};
    *{"SVN::Client::$function"} = sub
    {
        # Allows import to work while not breaking use SVN::Client.
        if ($function eq 'import')
        {
            if (ref($_[$[]) ne 'SVN::Client')

t/test_repo.dump  view on Meta::CPAN

        my $self = shift;
        my @args;

        if (ref($_[$#_]) eq '_p_apr_pool_t')
        {
            # if we got a pool pased to us we need to
            # leave it off until we add the ctx first
            # so we push only the first arg to the next
            # to last arg.
            push @args, @_[$[ .. ($#_ - 1)];
            unless ($function eq 'propset')
            {
                # propset doesn't take a ctx argument
                push @args, $self->{'ctx'};
            }
            push @args, $_[$#_];
        } else {
            push @args, @_;
            unless ($function eq 'propset')
            {
                push @args,$self->{'ctx'};
            }
            if (defined($self->{'pool'}) && 
                ref($self->{'pool'}) eq '_p_apr_pool_t')
            {
                # allow the pool entry in the SVN::Client
                # object to override the default pool.
                push @args, $self->{'pool'};
            }