src/Luminous/Scanners/PerlScanner.php
public function podCutOverride($matches)
    {
        $line = $this->scan('/^=.*/m');
        assert($line !== null);
        $term = '/^=cut$|\\z/m';
        $substr = $this->scanUntil($term);
        assert($substr !== null);
        $end = $this->scan($term);
        assert($end !== null);
        $this->record($line . $substr . $end, 'DOCCOMMENT');
    }
public function podCutOverride($matches)
    {
        $line = $this->scan('/^=.*/m');
        assert($line !== null);
        $term = '/^=cut$|\\z/m';
        $substr = $this->scanUntil($term);
        assert($substr !== null);
        $end = $this->scan($term);
        assert($end !== null);
        $this->record($line . $substr . $end, 'DOCCOMMENT');
    }
public function podCutOverride ( $ matches ) { $ line = $ this -> scan ( '/^=.*/m' ) ; assert ( $ line !== null ) ; $ term = '/^=cut$|\\z/m' ; $ substr = $ this -> scanUntil ( $ term ) ; assert ( $ substr !== null ) ; $ end = $ this -> scan ( $ term ) ; assert ( $ end !== null ) ; $ this -> record ( $ line . $ substr . $ end , 'DOCCOMMENT' ) ; }
we do it the old fashioned way
we do it the old fashioned way