File: FlawedStatisticsR.pm

package info (click to toggle)
libstatistics-r-perl 0.34-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 236 kB
  • sloc: perl: 2,132; makefile: 2
file content (16 lines) | stat: -rw-r--r-- 308 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
package t::FlawedStatisticsR;

use Statistics::R;
use base qw(Statistics::R);
my $eos = 'Statistics::R::EOS';

# Override the wrap_cmd() method of Statistics::R with a faulty one
sub wrap_cmd {
   my ($self, $cmd) = @_;
   $cmd = qq`zzzzzzzzzzzzzzz; write("$eos",stdout())\n`;
   return $cmd;
}

1;

__END__