1
edit
Changes
no edit summary
<presource lang=perl>
#!/usr/bin/perl
#
sub checkout (;$) {
my $self = shift;
my $directory = pop(@_);
if (defined($self->{_url})) {
####
sub commit ($) {
my $message = pop(@_);
my $self = shift;
1; # last expression of file must return true
</presource>