← Back to branch summary

~ubuntu-branches/ubuntu/trusty/clc-intercal/trusty-proposed

« back to all changes in this revision

Viewing changes to INTERCAL/Interface/None.pm

  • Committer: Bazaar Package Importer
  • Author(s): Mark Brown
  • Date: 2006-10-08 13:30:54 UTC
  • mfrom: (1.1.1 upstream) (3.1.1 dapper)
  • Revision ID: james.westby@ubuntu.com-20061008133054-fto70u71yoyltr3m
Tags: 1:1.0~2pre1.-94.-4.1-1
* New upstream release.
* Change to dh_installman.

Show diffs side-by-side

added added

removed removed

Lines of Context:
INTERCAL/Interface/None.pm
 
1
package Language::INTERCAL::Interface::None;
 
2
 
 
3
# pseudo user interface which never enters interactive mode
 
4
 
 
5
# This file is part of CLC-INTERCAL
 
6
 
 
7
# Copyright (c) 2006 Claudio Calvelli, all rights reserved.
 
8
 
 
9
# CLC-INTERCAL is copyrighted software. However, permission to use, modify,
 
10
# and distribute it is granted provided that the conditions set out in the
 
11
# licence agreement are met. See files README and COPYING in the distribution.
 
12
 
 
13
use strict;
 
14
use vars qw($PERVERSION);
 
15
$PERVERSION = "CLC-INTERCAL INTERCAL/Interface/None.pm 1.-94.-4";
 
16
 
 
17
use Carp;
 
18
 
 
19
use Language::INTERCAL::Exporter '1.-94.-4';
 
20
 
 
21
sub new {
 
22
    @_ == 1 or croak "Usage: Language::INTERCAL::Interface::None->new";
 
23
    my ($class) = @_;
 
24
    # I bet you never saw an object implemented as blessed regular expression
 
25
    bless qr/^/, $class;
 
26
}
 
27
 
 
28
sub is_interactive { 0 }
 
29
 
 
30
sub run {
 
31
    croak "Non interactive interface should never enter run()";
 
32
}
 
33
 
 
34
sub start {
 
35
    croak "Non interactive interface should never enter start()";
 
36
}
 
37
 
 
38
1;