Dataclass syntax private/public

1 files changed, 9 insertions, 1 deletions

diff --git a/syntaxes/dataclass.json b/syntaxes/dataclass.json
index c4f63e6..1766daa 100644
--- a/syntaxes/dataclass.json
+++ b/syntaxes/dataclass.json
@@ -32,10 +32,18 @@
                     }
                 },
                 {
-                    "match": "\\b(class)\\s+(\\w+)\\b(?:\\s+(extends)\\s+(\\w+)\\b)?",
+                    "match": "\\b(private|public|protected)\\s+(?=(?:sub|def)\\s)",
                     "captures": {
                         "1": {
                             "name": "keyword.other.attribute.dataclass.perl"
+                        }
+                    }
+                },
+                {
+                    "match": "\\b(class)\\s+(\\w+)\\b(?:\\s+(extends)\\s+(\\w+)\\b)?",
+                    "captures": {
+                        "1": {
+                            "name": "keyword.control.dataclass"
                         },
                         "2": {
                             "name": "entity.name.type.class"