view release on metacpan or  search on metacpan

doc/write_a_connector  view on Meta::CPAN

we need connectors to connect outside bug trackers and SD.
currently we have a few of them in lib/App/SD/Replica/

If you want to write another one, here is a simple introduction to the
skeleton of what a connector looks like.
You can also refer to those existed ones to get the example code.

Let's call the outside bug tracker( also named "Foreign Replica" in SD ) Foo here,
then the module is named App::SD::Replica::foo.
Assuming the client library of Foo is Net::Foo, by which we can communicate
with Foo.

App::SD::Replica::foo: some important attributes/methods:

    scheme: the scheme to indicate the url is a foo replica

inc/Module/Install.pm  view on Meta::CPAN

	my $who  = $self->_caller;
	my $cwd  = Cwd::cwd();
	my $sym  = "${who}::AUTOLOAD";
	$sym->{$cwd} = sub {
		my $pwd = Cwd::cwd();
		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";
Unknown function is found at $file line $line.
Execution of $file aborted due to runtime errors.

If you're a contributor to a project, you may need to install
some Module::Install extensions from CPAN (or other repository).

t/sd-trac/basic.t  view on Meta::CPAN

is(count_tickets_in_trac(),1);


#
# Update a ticket in trac
#

can_ok( $ticket, 'load' );
ok( $ticket->load(1) );
like( $ticket->state->{'summary'}, qr/pony/ );
like( $ticket->summary, qr/moose/, "The summary looks like a moose" );

sleep 2; # to make trac happy
ok( $ticket->update( summary => 'The product does not contain a pony' ),
    "updated!" );
unlike( $ticket->summary, qr/moose/, "The summary does not look like a moose" );

my ($fh, $filename) = File::Temp::tempfile(SUFFIX => '.txt', UNLINK => 1);
print $fh "TIMTOWTDI\n";
close $fh;
sleep 2; # to make trac happy