view release on metacpan or  search on metacpan

lib/CSS/Scopifier/Group.pm  view on Meta::CPAN

use Moo;
use Types::Standard qw(:all);

use CSS::Scopifier;
use Path::Class qw(file);
use Text::Balanced qw(extract_bracketed);

has 'group_name', is => 'ro', isa => Maybe[Str], default => sub {undef};
has 'local',      is => 'ro', isa => InstanceOf['CSS::Scopifier'], default => sub { CSS::Scopifier->new };
has '_members',   is => 'ro', isa => ArrayRef, default => sub {[]};

sub scopify {
  my $self = shift;
  $_->scopify(@_) for ($self->local,@{$self->_members});
  return 1;
}

sub write_string {
  my $self = shift;
  join("\n",