view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

          the API of this module is different from older version.

0.3     Thu Nov  5 00:09:11 CET 2009
        - requiring new Object::Event API.
        - fixed bug with 400 status, thanks to some weird Japanese forum.

0.26    Fri Sep 11 23:08:36 CEST 2009
        - removed 'count' parameter, it was defunct anyways.
          Now as many status updates as possible are fetched when
          no state exists yet.
        - added unix timestamp decoding.

0.25    Thu Sep  3 14:29:12 CEST 2009
        - implemented mentions.  Thanks go to Nuno Nunes
          (nfmnunes @ CPAN) for the initial patch.

0.21    Tue Aug 11 08:37:27 CEST 2009
        - added common::sense to prereq.

0.2     Mon Aug 10 10:07:28 CEST 2009
        - fixed some missing documentation.

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

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_command($file);
			}
		}
	}
}

1;

__END__

#line 236

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

}

sub write {
	my $self = shift;
	return $self unless $self->is_admin;
	$self->admin->write_meta;
	return $self;
}

sub version_from {
	require ExtUtils::MM_Unix;
	my ( $self, $file ) = @_;
	$self->version( ExtUtils::MM_Unix->parse_version($file) );

	# for version integrity check
	$self->makemaker_args( VERSION_FROM => $file );
}

sub abstract_from {
	require ExtUtils::MM_Unix;
	my ( $self, $file ) = @_;
	$self->abstract(
		bless(
			{ DISTNAME => $self->name },
			'ExtUtils::MM_Unix'
		)->parse_abstract($file)
	);
}

# Add both distribution and module name
sub name_from {
	my ($self, $file) = @_;
	if (
		Module::Install::_read($file) =~ m/
		^ \s*