sub processSassCtrlLine()

in maxas/MaxAs/MaxAsGrammar.pm [1305:1325]

• 19 lines of code
• 3 McCabe index (conditional complexity)

sub processSassCtrlLine
{
    my ($line, $ctrl, $ruse) = @_;

    return 0 unless $line =~ m'^\s+\/\* (0x[0-9a-f]+)';

    my $code = hex($1);
    if (ref $ctrl)
    {
        push @$ctrl, ($code & 0x000000000001ffff) >> 0;
        push @$ctrl, ($code & 0x0000003fffe00000) >> 21;
        push @$ctrl, ($code & 0x07fffc0000000000) >> 42;
    }
    if (ref $ruse)
    {
        push @$ruse, ($code & 0x00000000001e0000) >> 17;
        push @$ruse, ($code & 0x000003c000000000) >> 38;
        push @$ruse, ($code & 0x7800000000000000) >> 59;
    }
    return 1;
}