Lines Matching refs:self

80         my $self = {
93         $self->{SOURCE} = $source;
95         bless $self => $pack;
96         return unless $self->_acquire_data;
98         $self;
105     my $self = shift;
107     my $type = $self->{TYPE};
113         my $data = _load_text($self->{SOURCE});
120         if ($self->{UNTAINT} && _is_clean($self->{SOURCE})) {
124         if (defined $self->{ENCODING}) {
126             $data = Encode::decode($self->{ENCODING}, $data, &Encode::FB_CROAK);
129         $self->{TYPE}     = 'STRING';
130         $self->{FILENAME} = $self->{SOURCE};
131         $self->{SOURCE}   = $data;
134         $self->{TYPE} = 'STRING';
135         $self->{SOURCE} = join '', @{ $self->{SOURCE} };
138         $self->{TYPE} = 'STRING';
140         my $fh   = $self->{SOURCE};
142         if ($self->{UNTAINT}) {
145         $self->{SOURCE} = $data;
150         my $pack = ref $self;
154     $self->{DATA_ACQUIRED} = 1;
158     my $self = shift;
160     $self->_acquire_data unless $self->{DATA_ACQUIRED};
162     return $self->{SOURCE};
166     my ($self, $newdata, $type) = @_;
168     $self->{SOURCE}        = $newdata;
169     $self->{DATA_ACQUIRED} = 1;
170     $self->{TYPE}          = $type || 'STRING';
176     my $self = shift;
178     return 1 if $self->{TYPE} eq 'PREPARSED';
180     return undef unless $self->_acquire_data;
182     unless ($self->{TYPE} eq 'STRING') {
183         my $pack = ref $self;
187         die "Can only compile $pack objects of subtype STRING, but this is $self->{TYPE}; aborting";
191     my $delim_pats = shift() || $self->{DELIM};
199         @tokens = split /($DELIM|\n)/, $self->{SOURCE};
202         @tokens = split /(\\\\(?=\\*[{}])|\\[{}]|[{}\n])/, $self->{SOURCE};
270     $self->{TYPE}   = 'PREPARSED';
271     $self->{SOURCE} = \@content;
277     my $self = shift;
279     my $t = $self->{PREPEND};
282         $t = $GLOBAL_PREPEND{ ref $self };
288     $self->{PREPEND} = $_[1] if $#_ >= 1;
442     my ($self, %arg) = @_;