Apache-CVS
view release on metacpan or search on metacpan
CVS/Directory.pm view on Meta::CPAN
Construct a new C<Apache::CVS::Directory> object. The first argument is the
full path of the directory. The second argument is an C<Apache::CVS::RcsConfig>
object.
=cut
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = $class->SUPER::new(shift);
$self->{plain_files} = [];
$self->{files} = [];
$self->{directories} = [];
$self->{loaded} = 0;
$self->{rcs_config} = shift;
bless ($self, $class);
return $self;
}
CVS/File.pm view on Meta::CPAN
=item Apache::CVS::File->new($path, $rcs_config)
Construct a new C<Apache::CVS::File> object. The first argument is the
full path of the file. The second is a RCS configuration object.
=cut
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = $class->SUPER::new(shift);
$self->{rcs} = undef;
$self->{rcs_stale} = 1;
$self->{current_revision} = 0;
$self->{revision_count} = 0;
$self->{rcs_config} = shift;
bless ($self, $class);
return $self;
}
CVS/File.pm view on Meta::CPAN
}
=item $versioned_file->name()
Returns the filename of this file.
=cut
sub name {
my $self = shift;
my $name = $self->SUPER::name(shift);
my $ext = $self->rcs_config()->extension();
$name =~ s/$ext//;
return $name;
}
=back
=head1 SEE ALSO
L<Apache::CVS>, L<Apache::CVS::File>, L<Apache::CVS::Revision>,
CVS/HTML.pm view on Meta::CPAN
'file_header_row' => 'file_header_row',
'file_header' => 'file_header',
'file_odd_row' => 'file_odd_row',
'file_even_row' => 'file_even_row',
'file_data' => 'file_data',
);
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = $class->SUPER::new(shift);
$self->file_sorting_available(1);
$self->revision_sorting_available(1);
$self->{css_file} = $self->request()->dir_config('CSSFile');
bless ($self, $class);
return $self;
}
sub sort_files {
( run in 1.110 second using v1.01-cache-2.11-cpan-49f99fa48dc )