line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# -*- mode: cperl; tab-width: 8; indent-tabs-mode: nil; basic-offset: 2 -*- |
2
|
|
|
|
|
|
|
# vim:ts=8:sw=2:et:sta:sts=2 |
3
|
|
|
|
|
|
|
######### |
4
|
|
|
|
|
|
|
# Author: annulen |
5
|
|
|
|
|
|
|
# Last Modified: $Date$ |
6
|
|
|
|
|
|
|
# Id: $Id$ |
7
|
|
|
|
|
|
|
# $HeadURL$ |
8
|
|
|
|
|
|
|
# |
9
|
|
|
|
|
|
|
package Text::Sass::Token; |
10
|
29
|
|
|
29
|
|
102
|
use strict; |
|
29
|
|
|
|
|
30
|
|
|
29
|
|
|
|
|
671
|
|
11
|
29
|
|
|
29
|
|
84
|
use warnings; |
|
29
|
|
|
|
|
30
|
|
|
29
|
|
|
|
|
557
|
|
12
|
29
|
|
|
29
|
|
81
|
use Readonly; |
|
29
|
|
|
|
|
31
|
|
|
29
|
|
|
|
|
4979
|
|
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
our $VERSION = q[1.0.4]; |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
# TODO: Use token patterns from original sass and use them consistently |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
Readonly our $ESCAPE => qr/\\./smx; |
19
|
|
|
|
|
|
|
Readonly our $NMCHAR => qr/[^\s:\\]|$ESCAPE/smx; |
20
|
|
|
|
|
|
|
Readonly our $IDENT => qr/(?:$NMCHAR)+/smx; |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
# Next patterns are already consistent with Sass |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
Readonly our $COMMENT => qr{/[*]([^*]|[*]+[^*])*[*]*[*]/}smx; |
25
|
|
|
|
|
|
|
Readonly our $SINGLE_LINE_COMMENT => qr{\s//.*}mx; ## no critic (RequireDotMatchAnything) |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
1; |
28
|
|
|
|
|
|
|
__END__ |