File Coverage

blib/lib/SVN/Class/Info.pm

Criterion	Covered	Total	%
statement	21	36	58.3
branch	0	4	0.0
condition	0	6	0.0
subroutine	7	11	63.6
pod	3	3	100.0
total	31	60	51.6

package SVN::Class::Info;
use strict;
use warnings;
use base qw( Rose::Object );
use Rose::Object::MakeMethods::Generic (
    scalar => [
        qw( path name wc_root _url root rev
            node schedule author last_rev date
            updated checksum uuid
            )
    ]
);
use Carp;
use Data::Dump;
use SVN::Class::Repos;

our $VERSION = '0.17';

=head1 NAME

SVN::Class::Info - Subversion workspace info

=head1 SYNOPSIS

 use SVN::Class;

 my $file = svn_file( 'path/to/file' );
 my $info = $file->info;
 printf "repository URL = %s\n", $info->url;

=head1 DESCRIPTION

SVN::Class::Info represents the output of the C command.

=head1 METHODS

SVN::Class::Info B inherit from SVN::Class, but only
Class::Accessor::Fast.

=cut

=head2 new( $dir->stdout )

Creates new SVN::Class::Info instance. The lone argument should
be an array ref of output from a call to the SVN::Class object's
info() method.

You normally do not need to use this method directly. See the SVN::Class
info() method.

=cut

sub new {
    my $class = shift;
    my $buf   = shift;
    if ( !$buf or !ref($buf) or ref($buf) ne 'ARRAY' ) {
        croak "need array ref of 'svn info' output";
    }
    return $class->SUPER::new( _make_hash(@$buf) );
}

=head2 dump

Returns dump() of the object, just like SVN::Class->dump().

=cut

sub dump {
    return Data::Dump::dump(@_);
}

my %fieldmap = (
    Path                     => 'path',
    Name                     => 'name',
    URL                      => '_url',
    'Working Copy Root Path' => 'wc_root',
    'Repository Root'        => 'root',
    'Repository UUID'        => 'uuid',
    'Revision'               => 'rev',
    'Node Kind'              => 'node',
    'Schedule'               => 'schedule',
    'Last Changed Author'    => 'author',
    'Last Changed Rev'       => 'last_rev',
    'Last Changed Date'      => 'date',
    'Text Last Updated'      => 'updated',
    'Checksum'               => 'checksum'
);

sub _make_hash {
    my %hash;
    for (@_) {
        my ( $field, $value ) = (m/^([^:]+):\ (.+)$/);
        if ( !exists $fieldmap{$field} ) {
            croak "unknown field name in svn info: $field";
        }
        $hash{ $fieldmap{$field} } = $value;
    }
    return %hash;
}

=head2 url

Get the URL value. Returns a SVN::Class::Repos object.

=cut

sub url {
    my $self = shift;
    return SVN::Class::Repos->new( $self->_url );
}

=head2 path

=head2 wc_root

Working Copy Root Path

=head2 name

=head2 root

=head2 rev

=head2 node

=head2 schedule

=head2 author

=head2 last_rev

=head2 date

=head2 updated

=head2 checksum

=head2 uuid

Get/set the info params. These are really only useful as accessors (getters).

=cut

1;

__END__