7 More Discussions You Might Find Interesting
1. Post Here to Contact Site Administrators and Moderators
Hi,
If i reply to a post then view a thread, my reply does not show. But after few hours it shows up. Kindly help. (2 Replies)
Discussion started by: krabu
2 Replies
2. IP Networking
I want my system to not reply to pings. Does anybody know how to do that in any system? (3 Replies)
Discussion started by: itisijayare
3 Replies
3. Post Here to Contact Site Administrators and Moderators
Hi,
when i reply to a thread and then open that thread i dont see my reply. Whats the problem? (1 Reply)
Discussion started by: krabu
1 Replies
4. Post Here to Contact Site Administrators and Moderators
Hi Admin,
From the past couple of days, I'm not getting any emails for the replies made for my posts...
How can this be resolved, I checked my email address and it is correct...
could you please help me.. I missing many because of this problem
Cheers..Mahendra (2 Replies)
Discussion started by: mahendramahendr
2 Replies
5. Post Here to Contact Site Administrators and Moderators
Hi,
I had post my queries regarding shared objects (.so) in this forum. But i cant able to see the replies. I doubt whether i had received any replies or not. Kindly help me, to know the procedure to see the replies for my queries.
Thankyou.
Regards,
Senthil. (1 Reply)
Discussion started by: senthilvnr
1 Replies
6. IP Networking
Helo !
I set up a new server using FreeBSD 6.0-RELEASE. Everything is ok, until I try to connect it to the internet. After I set up the connection I try to ping yahoo.com and I don't get any reply. When I try to ping the gateway I get a lot of replyes for the same packet. It looks similar to this:... (2 Replies)
Discussion started by: Sergiu-IT
2 Replies
7. Post Here to Contact Site Administrators and Moderators
I have seen some in some threads it shows that are more than 1 replies, but when i open the thread for reading it it shows me only one reply. Where have the other replies gone ? (2 Replies)
Discussion started by: kapilv
2 Replies
TAP::Parser::Source::Perl(3pm) Perl Programmers Reference Guide TAP::Parser::Source::Perl(3pm)
NAME
TAP::Parser::Source::Perl - Stream Perl output
VERSION
Version 3.17
SYNOPSIS
use TAP::Parser::Source::Perl;
my $perl = TAP::Parser::Source::Perl->new;
my $stream = $perl->source( [ $filename, @args ] )->get_stream;
DESCRIPTION
Takes a filename and hopefully returns a stream from it. The filename should be the name of a Perl program.
Note that this is a subclass of TAP::Parser::Source. See that module for more methods.
METHODS
Class Methods
"new"
my $perl = TAP::Parser::Source::Perl->new;
Returns a new "TAP::Parser::Source::Perl" object.
Instance Methods
"source"
Getter/setter the name of the test program and any arguments it requires.
my ($filename, @args) = @{ $perl->source };
$perl->source( [ $filename, @args ] );
"croak"s if $filename could not be found.
"switches"
my $switches = $perl->switches;
my @switches = $perl->switches;
$perl->switches( @switches );
Getter/setter for the additional switches to pass to the perl executable. One common switch would be to set an include directory:
$perl->switches( ['-Ilib'] );
"get_stream"
my $stream = $source->get_stream($parser);
Returns a stream of the output generated by executing "source". Must be passed an object that implements a "make_iterator" method.
Typically this is a TAP::Parser instance.
"shebang"
Get the shebang line for a script file.
my $shebang = TAP::Parser::Source::Perl->shebang( $some_script );
May be called as a class method
"get_taint"
Decode any taint switches from a Perl shebang line.
# $taint will be 't'
my $taint = TAP::Parser::Source::Perl->get_taint( '#!/usr/bin/perl -t' );
# $untaint will be undefined
my $untaint = TAP::Parser::Source::Perl->get_taint( '#!/usr/bin/perl' );
SUBCLASSING
Please see "SUBCLASSING" in TAP::Parser for a subclassing overview.
Example
package MyPerlSource;
use strict;
use vars '@ISA';
use Carp qw( croak );
use TAP::Parser::Source::Perl;
@ISA = qw( TAP::Parser::Source::Perl );
sub source {
my ($self, $args) = @_;
if ($args) {
$self->{file} = $args->[0];
return $self->SUPER::source($args);
}
return $self->SUPER::source;
}
# use the version of perl from the shebang line in the test file
sub _get_perl {
my $self = shift;
if (my $shebang = $self->shebang( $self->{file} )) {
$shebang =~ /^#!(.*perl.*?)(?:(?:s)|(?:$))/;
return $1 if $1;
}
return $self->SUPER::_get_perl(@_);
}
SEE ALSO
TAP::Object, TAP::Parser, TAP::Parser::Source,
perl v5.12.5 2012-11-03 TAP::Parser::Source::Perl(3pm)