The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

PARDUS / Zoidberg-0.1b-unstable / Sepository / Sepository.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
—
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

              
package Zoidberg::Sepository;
our $VERSION = 0.1;
use strict;
use base 'Zoidberg::Fish';
sub parse {
    my $self = shift;
    my $str = shift;
    my $nv = -d '_Inline';
    $str =~ s{^\\C}{};
    $str =~ s{^c[/\{\|\.]}{};
    $str =~ s{[\/\}\|\.]$}{};
    $str = "use Inline C => <<'ENDOFFUNKYINLINECODE';\nvoid stubfunc () { $str; }\nENDOFFUNKYINLINECODE\nstubfunc;";
    $self->parent->print(eval($str));
    if ($@) {
        $self->parent->{exec_error} = 1;
        $self->parent->print($@,"error");
    }
    unless ($nv) {
        $_='_Inline';
        $self->rdir;
    }
}
sub rdir {
    my $self = shift;
    -d && (map({
        -d && $self->rdir;
        -f && unlink;
    } glob"$_/*"),rmdir);
    -f && unlink
}
             
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Zoidberg::Sepository - Inline:: glue
=head1 SYNOPSIS
  use Zoidberg::Sepository;
  blah blah blah
=head1 ABSTRACT
  This should be the abstract for Zoidberg::Sepository.
  The abstract is used when making PPD (Perl Package Description) files.
  If you don't want an ABSTRACT you should also edit Makefile.PL to
  remove the ABSTRACT_FROM option.
=head1 DESCRIPTION
Stub documentation for Zoidberg::Sepository, created by h2xs. It looks like the
author of the extension was negligent enough to leave the stub
unedited.
Blah blah blah.
=head2 EXPORT
None by default.
=head1 SEE ALSO
Mention other useful documentation such as the documentation of
related modules or operating system documentation (such as man pages
in UNIX), or any relevant external documentation such as RFCs or
standards.
If you have a mailing list set up for your module, mention it here.
If you have a web site set up for your module, mention it here.
=head1 AUTHOR
root, E<lt>root@internal.cyberhqz.comE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2002 by root
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. 
=cut