package VCP::Dest::summary ; =head1 NAME VCP::Dest::summary - developement output =head1 DESCRIPTION Dump each revision as a string. Not a supported module, API and behavior may change without warning. =cut $VERSION = 0.1 ; @ISA = qw( VCP::Dest ); use strict ; use VCP::Dest; use VCP::Logger qw( pr ); #use base qw( VCP::Dest ); sub _dump { my ( $h ) = @_; my @keys = sort keys %$h; my $w; for ( @keys ) { $w = length if !defined $w || $w < length; } map { my $v = $h->{$_}; $v =~ s/([\\'])/\\$1/g; $v =~ s/\r/\\r/g; $v =~ s/\n/\\n/g; $v =~ s/\t/\\t/g; sprintf " %-${w}s: '%s'\n", $_, $v; } @keys; } sub handle_header { pr "Header:\n", _dump $_[1] } sub handle_rev { pr $_[1]->as_string, "\n" } sub handle_footer { pr "Footer:\n", _dump $_[1] } =head1 AUTHOR Barrie Slaymaker <barries@slaysys.com> =head1 COPYRIGHT Copyright (c) 2000, 2001, 2002 Perforce Software, Inc. All rights reserved. See L<VCP::License|VCP::License> (C<vcp help license>) for the terms of use. =cut 1
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#3 | 4496 | Barrie Slaymaker | - minor POD cleanups to prevent nags when building VCP::Help | ||
#2 | 4021 | Barrie Slaymaker |
- Remove all phashes and all base & fields pragmas - Work around SWASHGET error |
||
#1 | 3803 | Barrie Slaymaker | - Debugging output improved |